TDL Z30 
.MAIN. ■ 



CP/M DISK ASSEMBLER VERSION 2.21 



PASE 1 



0302 
0303 



version - 
revision: 



2 
3 



. pabs 
.phex 



Multiple floppy disk: test progran 



This program tests up to eight drives 
3 v;rite patterns: Linear .Random , and fix 
a write has been performed on all drives, 
read tests! in two successive 
Random. The user selects the 
order in which the drives are 
abort the program at an/ time 



There are 
d. After 
each drive 
patterns: Linear and 
density, as well as the 
tested. Control-C will 
Console 'in progress' 



commands are F,R,S,T, and Q and are described below. 

F - Initiate FIXTEST. This turns off the disk-write 
(if its enabled), sets the test pattern to fixed, 
and enables the user to Read test or Write test 
at will to any disfc, any track, for any length of 
time. 

R - Read out the 'error' buffer. The program keeps 
track of all write patterns and loop nunbers, by 
writing them to a buffer located at 7002h. All 
Errors are written to this buffer, also. When 
the buffer fills past B030h the buffer is des- 
troyed and re-initialized to 7300h. 

.3 - Print the current status to console. This in- 
the user immediately as to what function is 
currently being performed, the amount of errors 
that have been detected, as well as the current 
drive and current time 

T - Stop the current test in progress and select 
a new set of disks to test. The buffer-write 
disk is kept the same, and the buffer-file's 
contents are not destroyed. 

Q - Quit the program. The progran then asks the 
user if an exit is really desired. If no 'Y ' 
is entered, the test resumes as if not inter- 
rupted. If a 'I' is entered the test will 
then terminate. 

? - Any other character is received from the console 
a menu of acceptable commands is printed out. 

Flexibili ties 

Changeable fixed byte. Change 'wrstbyt'. 
If a change of the worst byte ( read and 
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0100 
0100 



written in the 'fixei' moie ) is desired, 
change the value of the hyte at 133h to the 
desired value. This can be ione in ZDT if desired 



Chargeable error overflow. Change 'maxsrrs'. 
If any drive accumulates a 'maxerrs' nu:nber of errors 
of any one type, FDTEST will automatically log that 
drive out of the test. 'Maxerrs ' is defaulted to 10 
and can be set by changing the byte at 104h to any 
desired value. This also can be done through ZDT. 

Disk write option. This writes the contents 
of the error buffer ( which begins at 7000h' ) to 
a user-selected disk. When 12B bytes are collected 
the sectors worth of data is written to CONFILE.TKI 
(this file is chosen by default if no file name is 
found on the command line) and the buffer is cleared. 
This will continue forever, or until the disk is 
full. 

Fixed track testing. See 'F ' comiand above. 

Please note: Both CP/M and BIOS calls are used. 
The disk write feature uses SP/M file management, 
while the test reads S. writes are performed through 
BI03 calls. 



Update History: 

Version 2.03 



David Stein 12/10/30 



Condensed error buffer info. 
Neatened error messages. 

DS 3/26/31 



C3 0105 



.loc 
jmp 



100h 
start 



0103 

0104 



000D 
000A 
000A 
004E 
00B0 
005C 



0105 



B6 

0A 



; Patch area 
wrstbyt : .byte 0B6h 



maxerrs : .byte 



0Ah 



Define some constants 



cr 




0Dh 


If 




0Ah 


retry 




10 


BlOSrty = 




4Eh 


comline = 




80h 


DFCB 


gram 


5Ch 


; Main Pro 




start: 







; special worst case test 
Jbyte for fixed pattern reading 
; Maximum number of Sector or 
JTrack errors allowed on each 
;drive before logging drive oat 



define carraige return 
define line feed 
number of error retries 
memory location of # retries 
CP/M command line location 
CP/M com line FCB addr 
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Start 



0125 


31 


7002 


0128 


3E'03 


010A 


32 


1537 


010D 


32 


162B 


0110 


21 


7000 


0113 


22 


1535 


0113 


CD 


170F 


0119 


21 


1720 


011C 


22 


171E 


011F 


3A 


0080 


0122 


FE03 


012i 


3803 


0126 


21 


005C 


0129 


22 


171E 


012C 






012C 


3A 


2103 


012F 


F5 




0130 


07 




0131 


07 




0132 


07 




0133 


07 




0134 


CD 


0144 


0137 


32 


063E 


013A 


Fl 




013B 


CD 


2144 


013E 


32 


263F 


0141 


C3 


0150 



0144 


E60F 


0146 


FE0A 


0148 


FA 014D 


014B 


C607 


014D 


C632 


014F 


C9 



Chsck 



; Set 
setup; 



UD 



v/ i-t h 
Ixi 
mvi 
sta 
sta 
Ixi 
shld 
call 
if CO 
Ixi 
shia 
lia 
cpi 
jrc 
Ixi 
shld 
the 

lia 

push 

rlc 

rlc 

rlc 

rlc 

call 

sta 

pop 

call 

sta 

jmp 



a fre 
sp 
A, 
er 
ds 
H, 
er 
pu 

■nnand 
K, 
EC 

CO 

3 

se 

H, 

EC 

'wors 



sh stack, 

, stack 

2 

rflg ; 

kflg ; 

erbuf f er 

rbufair J 



initialize buffer and flags 



turn off error flag 
turn off disk write 



flag 



tEOF 

line 
FCB 
Badir 
inline 

tup 
DFCB 
Badir 
t byte' 



file 



fo 



initialize err 'buffer 
label eni of err buffer 
naTie option was used. 

Load in FCB for CONFIDE. TKT 

Now we check the com line 

[iarbage? 

Yes . Stick with 

No. Get default 

ani make it our 

r being urinted 



current FCB 
FCB addr 
FCB addr. 
to console 



wrstbyt 



> Split up the 
;into two chrs 



savnbl 

wbchrl 

PSW 

savnbl 

wbchr2 

BESIN 



'worst byt: 
and save 
;for 'Writing XXh fixed' 
;in summary print-outs. 



; 1st chr of wrstbyt 



; 2nd chr of wrstbyt 

; preliminaries finished 



Save 
savnbl 



chr : 



a nibble 
ani 
cpi 

jni 
aii 
adi 
ret 



Subroutine: savnbl 

0Fh 

10 

chr 

07 

'0 
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0150 


FB 




0151 


3E03 


0153 


32 


004E 


0155 


32 


162B 


0159 


CD 


1B25 


015C 


21 


193F 


015F 


CD 


1335 


0162 


21 


359B 


0165 


CD 


1385 


016S 


21 


232S 


016B 


CD 


1335 


013E 


CD 


1407 


0171 


F5 




0172 


32 


1391 


0175 


21 


1391 


017B 


CD 


1385 


017B 


Fl 




017C 


FE59 


017S 


2a0D 


0130 


FE4E 


01B2 


CA 


0209 


0135 


21 


0434 


0133 


CD 


1385 


01BB 


18DB 


018D 


21 


0360 


0190 


CD 


1385 


0193 


CD 


1353 


0196 


32 


1538 


0199 


4:F 




019A 


CD 


1443 


019D 


CD 


1825 



01A0 


21 0372 


01A3 


CD 1385/ 


01A6 


3A 1533 


01A9 


5F 


01AA 


0E0E 


01AC 


CD 3005 


01AF 


0E13 


01B1 


ED5B 171E 



MAIN BODY 



First - Initialize ani obtain initial 
instructions on which density and 
which disks to test, ani whether 



or not to save the 
or network. 



errors on disk 



BEaIN; 



ei 

Tivi 

sta 

sta 

call 

Ixi 

call 

Ixi 

call 



A,0 

BlOSrty 

dskflg 

stoMAPbyt 

H,crlf 

prtmsg 

H,init^S:j 

prtmsg 



enable interrupts 
disable auto retries 
in BIOS 

reset disk write flag 
Save current disk select 
space down a line. 

print initial Tiessage 



; Find out if user wants buffer saved on disk. 

dskask: Ixi H,dskmsg ; 'write to A:,B:,C;, or D:?' 

call prtmsg 

call CONIN 

push PSW 

sta retdsk 

Ixi H,retMSS 

call prtiTisg 

pop PSW 

cpi T' 

jrz findED 

cpi 'N' 

jz clrERR 

Ixi H.errmsg 

call prtmsg 

jmpr dskask 



; place chr in message 

; echo chr and space down 

write=yes? 

Write=yes. Find error disk 

write=no? 

Clear Error counts. 

bad entry, ask again 



Qser wants baffer saved on disk. Which disknaTie? 



findED: Ixi H,CPMdskmsg 

call prtmsg 

call getCPMdsk 

sta ERRDSK ; 

mov C,A 

call SSLDSK 

call stoMAPbyt 



'A,3,C, or D' msg 



disk for holding errs 

select disk 1st thru BIOS 
Save this MAP byte. It 
will be used for dumping 
every 128 chrs (from the 
buffer) to this assignment 



; Kill ,crea te , open .write , and close the file; 

Ixi H.stndbymsg 

call Drtmsg ; Tell user to wait. 

Ida ERRDSiC 

mov E,A 

mvi C.logdsk 

call BD03 ; select D disk thru BDOS 

mvi C,kill 

lied FCBaddr ; File Control Block 
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01B5 


CD 0005 


01B3 


0E16 


01BA 


ED5B 171E 


01BE 


CD 0005 


01C1 


0E0F 


01C3 


ED5B 171E 


01C7 


CD 0005 


01CA 


0E1A 


01CC 


11 04:5C 


01CF 


CD 0005 


01B2 


0E15 


01D4: 


ED5B 171E 


01DB 


CD 0005 


01DB 


21 2315 


01DE 


FE00 


01EZ 


F5 


01E1 


Ci 1385 


01E4 


F.l 


01E5 


C2 22D1 


01EB 


0E10 


01EA 


ED5B 171E 


01EE 


CD 2205 


01F1 


0E1A 


01F3 


11 0030 


01F6 


CD 0005 


01F9 


21 162C 


01FC 


22 1628 


01FF 


3E00 


0201 


32 162 A 


0204 


3EFF 


0205 


32 162B 


020S 


21 143S 


020C 


11 USA 


020F 


01 Z00A 


0212 


3600 


0214 


EDB0 


0216 


21 149A 


0219 


11 149B 


021C 


21 200A 


021F 


3600 


0221 


EDB2 



; kill the file CONFILE.TXT 

; create the file 

attempt an open 
file heaier adir 
'write next record ' 
write a file heaier 

; print err y\sg 

; die if cant write 

; close the file 

reset the i.na 

"begin disk buffer 

zero the counter 

set the iisk write fla? 



; Clear the error count locations. 

clrERR: Ixi H, Terrors 

Ixi D,Terrors+l 

Ixi B,10 

mvi li,0 

LDIR ; Clear Track error Iocs 

Ixi H.Serrors 

Ixi D,Serrors+l 

Ixi B,10 

mvi !i,0 

LDIR J Clear Sector error Iocs 



call 


BDOS 


mvi 


C, create 


lied 


FCBadir ' 


call 


BDOS 


mvi 


C ,open 


lied 


FCBaddr 


call 


BDOS 


mvi 


C ,dma 


Ixi 


D.hdfile 


call 


BDOS 


mvi 


C ,wnr 


lied 


FCBaddr 


call 


BDOS 


Ixi 


H,dskerr 


cpi 





push 


P3W 


cnz 


prtmsg 


pop 


psv; 


jnz 


exit 


mvi 


C , close 


lied 


FCBaddr 


call 


BDOS 


mvi 


C ,dma 


Ixi 


D,30h 


call 


BDOS 


Ixi 


H,dskbuf 


shld 


huf chr 


mvi 


A,0 


sta 


huf cnt 


mvi 


A,0FFh 


sta 


dskflg 



Jet the iensity. 



0223 


21 2392 


f iniisn 


:lxi 


H,denmsg 


0226 


CD 1385 




call 


prtmsg 


0229 


CD 14.07 




call 


CONIN 


022C 


F5 




push 


PSW 


022D 


32 1391 




sta 


retdsk 


0230 


21 1391 




Ixi 


H,retMS3 


0233 


CD 1385 




call 


prtmsg 


0236 


Fl 




pop 


PSl'^ 



; Ask user the density 

» fetch console chr 

» place chr in message 

; echo chr and space down 
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023? 


0600 


0239 


FS53 


023B 


280E 


023D 


0640 


023F 


FE44 


0241 


2808 


0243 


21 2434 


0246 


CD 1385 


0249 


ISDB 


024B 


73 


024C 


32 171C 


024F 


21 2D02 


0252 


2803 


0254 


21 1A00 


0257 


22 1485 


025A 


21 23BB 


025D 


CD 1385 


0260 


21 14B5 


0233 


E5 


0264 


21 25CB 


0267 


CD 1385 


025A 


CD 1333 


025D 


El 


02oE 


77 


026F 


23 


0270 


FEFF 


0272 


282A 


0274 


32 1483 


0277 


0602 


0279 


E5 


027A 


CD 1832 


027D 


El 


027E 


3A 162B 


0231 


FEFF 


02B3 


20DE, 


0235 


E5 


0236 


CD 1473 


0299 


E6BF 


02BB 


47 


02BC 


3A 171D 


023F 


E6BF 


0291 


BS 


0292 


El 


0293 


20CE 


0295 


21 23F1 


0298 


CD 1385 


029B 


C3 2150 



stoiens 



.0 



mvi 
cpi 
jrz 
mvi 
cpi 
jrz 
Ixi 
call 
.i^pr 
imov 
sta 
Ixi 
jrz 
Ixi 
shld 



B,SDb,yt 

'S' 

stodens 

B,DDb.yt 

'D' 

stodens 

H,errmsg 

prtmsg 

f indden 

A,B 

DSNSbyt 

H, 26*123 

..0 

H, 26*255 

BaFLEN 



Prepare for sing, density 

Single density? 

Yes. Save register B 

Ho. Prepare for doub dens 

Double density? 

Yes . Save register B 

No. Load error jiessage 

Print error message 

and ask again. 

Store flop dens code, 
set BUFLEN for sing dens 
2 is sing density 
set BUFLEN for doub dens 



aet the test disks 



findTD: 
. .1: 



Ixi 

call 

Ixi 

push 

Ixi 

call 

call 



'Test Disk: ' msg 



H, tst-nsg 

prttnsg 

H,TstUnit5 ; List of Units to test 



H,dskQ,3T 

prtmsg 

getdsk 



Save the list addr 
ask which disk 

get a disk number to test 
FF returned = car ret 



pop H 

mov M,A 

inx H ' 

cpi 0FFh 

jrz . .3 

sta D3SNAME 

mvi B,2 

push H 

call chaMAPbyt 

pop H 
; Check for saiie disk selection for testing/errors 
Ida 



Meanwhile load in disk nu^i 
And get to next list addr. 
More units? 

No. All data collected, 
store latest valid disk nam 



Select latest disk 



cpi 

jrnz 

push 

call 

ani 

mov 

Ida 

ani 

cmp 

pop 

jrnz 

Ixi 

call 

jfnp 



disk flag set? 

NO. Bypass this test 

Yes. Test for ambiguity. 

A = disks MAPbyte 

Tarn off sing/doub dens bit 



dskflg 

0FFh 

..1 

H 

CPMmap 

10111111b 

B,A 

MAPbyt 

10111111b ; Turn off sing/doub dens bit 

B ; Comoare that with our 

H 

..1 ; drives not same. 3-et next. 

E.drimsg ; load 'Ambiguous case' msg 

prtmsg 

BEGIN ; start over 



029E 



21 198F 



ALL TEST DATA ENTERED AND CHECKED 
3: Ixi H,crlf 
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FDTEST 

02A1 CD 1385 call prtmsg ', Space down 

> Buili a linear table. 
02A1 21 2000 Ixi H,lintab ; buili a linear table 

02A7 01 4:001 Ixi B,7S<3 + 1 

02AA CD 02F5 call FILLTAB 

02AD 21 2040 Ixi H,wrtab ; buili pssudo randon table 

02B0 ■ 01 4015 Ixi B,76<3+21 

02B3 CD 02F5 call FILLTAB 

02BS 21 2096 Ixi H,ritab ; buili pseuio ranioii table 

02B9 01 4C1F Ixi B,76<3+31 

02BC CD 02F5 call FILLTAB 

; Print a coirnand sunmary. 
02BF CD 1371 call waiter ; wait for a cr 

0202 21 156D Ixi H,HELPmsg 

0205 CD 13S5 call prtmsg ; print command sun^iary 

0203 21 19SF Ixi H,crlf 

02CB CD 1335 call prtmsg ; ani space down a line 

; Start the test. 
02CE CD 04DD call TEST 
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02D1 


21 2305 


02D4 


CD 1385 


02D7 


CD 1841 


02DA 


C3 0002 


02DD 




02DD 


E5 


02DE 


3E00 


02E0 


32 1537 


02E3 


CD 1385 


02E6 


CD 13FF 


02E9 


El 


02EA 


FSFF 


02EC 


20EF 


02EE 


E5 


02EF 


CD 16DC 


02F2 


El 


02F3 


18EB 



"'' ^ ^£ >'' •*' ^' <■<' ^'' ^' ''f *f' *'* ->'•> '<^' -*' >■'•• •'' i'' -I' ^*' >■' Jo •>' «><• ••■• <>' ■>.•' •'' ->' >■' «■- •.•' <.■' •>.■- •■<' •>' >■' .1^ J> «■> si' •>' 
'I* V V 'I* 'I* V *!» "i* '(■• *j* '!"• 'p 1" 'f »p 'p 'i» *(^ »(» 'p S* 'I* 'i'" 'i* I" '(* 'f 't* 'I* '1* '*■• •t'* *i* '»'' li* 't* 'p 'I* '1* •»■" 'r* 't* 



PRE-TEST messages ani subroutines 



-'' i^ :^ :ft ;^S i!£ -'" ^'' "V I's ;'; ;'f ■*'' ^'* •*' *'* i-*' -'* •■** -'!• •** •*' -*' >'* *'•» .'^^ -i- -t- »'^ -'* ''* -'^ •<* -<* «.'o si* %•* j* »•* »•* 

'p 'I* 'p V v 'r "p 'p '^ '»* 'p 'p -*■• 'p -p 'p '^ ^p .fp -,? -p 'p 'p 'p 'p ^* -p »|> 'f. -i» *p ?,c Sp *p ^j< sj^ ;,? :5s ;^ >j; 



exit : 



srrexi t 



Ixi 

call 

call 



push 

mvi 

sta 

call 

call 

pop 

cpi 

jrnz 

DUSh 

call 

pop 

jmpr 



H,exitMS3 > print exit nessage 

prtmsg 

resMAPbyt ; Restore original lisk. 

; WBOOT 



H 

A,0 

errflg 

prtmsg 

CONST 

H 

0FFh 

errexit 

H 

prtbuf 

H 

errexit 



> save err msg address 
; turn off error flag 

; console chr ready? 

> loop til a chr is ready 
; print err summary 

; loop back forever 



02F5 
02F5 
02F7 
02FB 
02F9 
02FA 
02FB 
02FE 
0300 
0301 
0302 
0304 

0305 
0315 
032B 
034A 
0360 
03S0 
0372 
0372 
0390 
03AB 
03BB 
03D7 
03F1 
040F 
0434 
0447 



; Fil 
FILLT 



3E01 

50 

77 

81 

BA 

FA 0301 

2801 

92 

23 

10F4 

C9 

0D0A455B4954 
0D0A43615E6E 
0D0A53617665 
6469736B20SF 

2S412C20422C 

0D0A57616974 
0D2A54657374 
64656E736974 
0D0A54657374 
676520723574 
0D0A416D6269 
2043616E6E6F 
0D0A49SES36F 
20506C656173 



1 a 

AB: 
mvi 
mov 
mov 
add 
cmp 

jrz 
sub 
inx 
d jn z 
ret 



table (b=lengtti, c=increment) 



A,l 

D,B 

M,A 

C 

D 

..2 

. .2 

D 

H 

..1 



start at 1 
save length 
put into memory 
add the increment 
test for overflow 



if so, get 
update HL 
loop until 



back into rangs 
done 



exitMSa : .asciz 
dskerr: .asciz 
dskmsg: .ascii 

.asciz 
CPMdskmsg: 

.as 
stndbymsg: 

.asciz 
denmsg: .ascii 

.asciz 
tstmsg: .ascii 

.asciz 
drimsg: .ascii 

. ascii 
errmsg: .ascii 

.asciz 
; Header for the 



[cr] [If] 'EXIT FDTEST'Ecr] [If] 

[cr] [If ] 'Cannot access disk.' 

[cr] [If J 'Save ERRORS and loop info on 

'disk or HiNet? (Y/N) ' 



;iz '(A, B, C, or D) ?' 



[cr] [If] 'Wait - Creating Buffer File' 
[cr] [If] 'Test in Single or Double ' 
'density? (S/D) ' 

[cr] [If] 'Test which drives? (Carria' 
'ge return to terminate )' [cr] [If ] 
[cr] [If] 'Ambiguous drive selections. 
' Cannot save buffer on test diskette 
[cr] [If] 'Incorrect Entry. ' 
Please try again .' [cr] [If] 
CP/M file which will hold errors. 
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FDTEST 

0i5C 0D!5A464C4:F50 hdfils: .ascii [cr] [If ] 'FLOPPY DISK SUMMARY FILE' 

0i76 202020202020 .ascii ' 

0i96 0D0A2A2A2A2A .ascii [cr] [If ]'****-* **-' 

0iB0 202020202020 .ascii 

0iD0 202220202020 .asciz ' '[cr][lfj 
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FDTE3T 



0iDD 






04:DD 


3E00 


04DF 


32 


14AD 


0iE2 


3E01 


0iE4: 


32 


1487 


0iE7 


07 




04:ES 


32 


1488 


04EB 


3EFF 


0iED 


32 


1537 


0iF0 


21 


5E0 


04F3 


CD 


1385 


04F6 


3A 


1487 


04F9 


CD 


13A2 


04FC 


' 21 


1983 


0iFF 


CD 


1385 


0502 


CD 


1850 


0505 


3E00 


0507 


32 


1537 


050A 


CD 


170F 


050D 


21 


25E6 


0510 


22 


14AF 


0513 


CD 


1385 


0516 


21 


2000 


0519 


CD 


064B 


051C 


21 


35FA 


051F 


22 


14AF 


0522 


CD 


1385 


0525 


21 


2000 


0528 


CD 


069r 


052B 


21 


0622 


052E 


22 


14AF 


0531 


CD 


1385 


0534 


21 


2098 


0537 


CD 


069F 


053A 


3A 


1488 


053D 


3C 




055E 


32 


'1488 


0541 


21 


060E 


0544: 


22 


14AF 


0547 


CD 


1335 


054A 


21 


204C 


054D 


CD 


2 64B 


0550 


21 


0622 


0553 


22 


14AF 


0555 


CD 


1385 


0559 


21 


2098 


055C 


CD 


269F 



; TEST thg iisk 
TEST: 

mvi A,0 

sta fixflg ; flag: fixei pattern off 

■nvi A,l ; start test at loop 1 

tstloop:sta LOOPS ; store it away 

rlo 

sta RANSEED ; calculate; fir st seei 

mvi A,0FFh 

sta errflg ; turn on for 'LOOP' nsg 

Ixi HtloopMSa ; print the loop message 

call prtmsg 

lia LOOPS 

call prtA 

Ixi H,space5 

call prtmsg 

call prttime > print the time & date 

mvi A,0 

sta errflg ; turn buffer write flag off 

call putEOF 

;Writ2 ani test in a linsarly-written pattern 

tststrtrlxi H^wrlnYiSS ; first write linearly 

shld dskfunc I save current function 

call prtmsg 

Ixi H,lintab 

call wrtest 

Ixi H,rdlnM3S ; then read linearly 

shld dskfunc ', save current function 

call prtmsg 

Ixi H,lintab 

call rdtest 

Ixi H,rirnM3S ; then read randomly 

shld dskfunc ; save current function 

call prtmsg 

Ixi H, rdtab 

call rdtest 

Ida RANSEED ; change the seed 

inr A 

sta RANSEED . 

JWrite and test a randomly-written pattern 

Ixi H,wrrnMS& ; next, write randomly 

shld dskfunc > save current function 

call prtmsg 

Ixi H,wrtab 

call wrtest 

Ixi H,rdrnMS3 J then read randomly 

shld dskfunc ; save the current function 

call prtmsg 

Ixi H, rdtab 

call rdtest 



TDL Z30 
FDTEST 



CP/M DISK ASSEMBLER VERSIOM 2.21 
■ FLOPPY DISK TEST PROGRAM FOR DSCS/i 



PASE 11 



055F 
0562 
0565 
0558 
056B 



05SE 
0571 
0574 
0577 
057A 
057D 

05B0 
05B3 
0536 
0599 
053C 
053F 
0591 

0594 
0597 
0593 

059B 
05AD 
05AF 
05B1 
05C7 
05CB 
05E0 
05£o 
05FA 
0S0E 
0322 
0636 
053E 
033F 
0540 



21 35FA 

22 14:AF 
CD 1335 
21 2002 
CD 269F 



32 
21 
22 
CD 
21 
CD 



14AD 
0636 

14:AF 

1335 
2000 
064B 



21 
22 
CD 
21 

CD 



25FA 
14AF 
1385 
2000 
269F 

3E00 

32 14AL 



3A 1487 

3C 

C3 04E4 

20466C6F7070 

322E 

3033 

20666F722074 

0D0A0A00 

44e9736B204E 

4C4F4F502000 

5772697469SE 

52656164696E 

57726974696E 

5265616469SE 

57726974696E 

30 

30 

682066597865 



;Writi 



Ixi 

shld 

call 

Ixi 

call 

ani test 
5ta 
Ixi 
shld 
call 
Ixi 
call 

Ixi 

shld 

call 

Ixi 

call 

mvi 

sta 

Ida 
inr 



initMS: 



dskQST; 
loopMSiJ: 
wrlnMSS : 
rdlnMSJ: 
wrrnMS J : 
rdrn.-^SJ: 
wrwrstMS 
wbchrl : 
w'bchr2: 



; write worst byte linearly 
; save current function 



H,rdlnMS5 ; then read linearly 

dslcfunc J save current function 

prtnisg 

H,lintab 

rdtest 

the worst byte in a fixed pattern 

fixfl? ; set fixed pattern flag 

H,v;rwrstMSa 

dskf unc 

prtmsg 

H.lintab 

wrtest 

H,rdlnMSl ; then read linearly 

dskfunc ; save current function 

prtmsg 

H,lintab 

rdtest 

A,0 

fixflg ; turn off fixed pattern 



LOOPS 

A 

tstloop 



; read and write again 



.ascii ■■ Floppy Disk Test 

.byte version+'0' , ' . ' 

.byte revision/10+'0',revision310+'2' 

.ascii ' for the DSC3 and DSC4' 

.asciz [cr][lf][lf] 

.asciz 'Disk Number (0-7) : ' 

.asciz 'LOOP ' 

.asciz 'Writing linearly. ' [cr] [If] 

.asciz 'Reading linearly. ' [cr] [If ] 

.asciz 'V/riting randomly. ' [cr] [If ] 

.asciz 'Reading randoT)ly . ' [cr] [If ] 

S: .ascii 'Writing ' 

.byte '0' ; v;orst byte chr 1 

•byte '2' J worst byte chr 2 

.asciz 'h fixed. ' [cr] [if] 



TDL Z30 CP/M disk ASSEMBLER VERSION' 2.21 
.MAIN. - FLOPPY DISK TEST PROGRAM FOR D5C3/4 
FDTEST 



PAiE 12 



064:B 




054:3 


22 14B1 


0S4E 


21 14B5 


0351 


0602 


0553 


7S 


0354 


23 


0355 


FEFF 


0S57 


2806 


0559 


FEB0 


035B 


28F3 


055D 


06FF 


035F 


78 


0360 


FEFF 


0362 


21 0BB3 


0555 


C2 02DD 


0363 


21 14B5 


033B 


7S 


056C 


23 


035D 


FEFF 


056F 


C8 


0570 


FE80 


0572 


28F7 


0374 


E5 


0375 


32 1433 


037B 


0602 


057A 


CD 1832 


0S7D 


2A 14B1 


03B0 


CD 0685 


0633 


El 


0534 


18E5 


0336 




0536 


E5 


0537 


CD 143B 


03SA 


El 


033B 


064C 


053D 


C5 


05BE 


E5 


053F 


7E 


0590 


32 1484 


0393 


CD 0D20 


0596 


C4 0709 


0599 


El 


039A 


CI 



Subroutine: v/rtest 



This 
A li 
The 
wrtest 

; Firs- 
. .test 



subroutine supervises the write proceiure- 
st of units under test is store! at TstQnits 
list is terTiinated by an FFh. 



. .check: 



shld 
we chE 
Ixi 
nvi 
mov 
inx 
cpi 
jrz 
cpi 
jrz 
mvi 
imov 
cpi 
Ixi 
jnz 



At least on: 

Ixi 

. w r 1 : mov 

inx 

cpi 

r 2 

cpi 

jrz 

push 

sta 

mvi 

call 

Ihld 

call 

pop 

ji-npr 



wrparameter 
ck: that indeed 
H,TsTUnits 
B,0 
A,M 
H 

0FFh^ 
. .check 
a0h 
. . test 
B,0FFh 
A, 3 
0FFh 

H,TermLOG 
errexit 

unit is logged 
K,TstUnits 
A,M 
H 

0FFh 

80h 

. .wrl 

H 

DSKNAME 

3,2 

chaMAPbyt 

wrparameter 

wrl unit 

H 

..wrl 



J Save test parameter 
there are units to test 
; Get addr of test list 
; Zero out register B 



Get to next list addr 
End of list? 
Yes. 

Is this Logged out? 
Yes. Keep looking 
No. Set flag in B 
Check for flag 
Is it set? 
Get err msg ready- 
No. Die. 



in. Proceed with test 



Get 
and 



unit nu-n 
get next 



to ti 
list 



St 

addr 



Is this last unit? 
Yes. Return. 
Is unit logged out? 
Yes. Get the next one 
No. Save unit addr 
No . Save unit num 
Write thru CP/M 'C' 
Select that unit 
Restore test paramtr 
Write to that unit , 
Restore unit address 
and write again. 



; Write 
wrluni t : 



tracks from table 



.1 



push 

call 

pop 

mvi 

push 

push 

mov 

sta 

call 

cnz 

pop 

pop 



H 

HOME 

H 

B,73 

B 

H 

A,M 

TRACK 

wrtrk 

wrerr 

H 

B 



save HL 

home the disk 

restore HL 

table has 75 entries 

save BC and HL 

get track from table 
store in track 
write it 

check for errors 
restore BC ana HL 



TDL Z30 CP/M DISK ASSEMBLER VERSION 2.21 
.hUDi. - FLOPPY DISS TEST PROGRAM FOR D3C3/4 
FDTEST 



PA.aE 13 



059B 
039C 
059E 



23 

10EF 
C9 



inx 

djaz 

ret 



.1 



; update HL 
; repeat until 



no more tracks 



039F 




0S9F 


22 14B3 


05A2 


21 14B5 


05A5 


0602 


05 A7 


7E 


03AS 


23 


03A9 


FEFF 


03AB 


2806 


0SAD 


FEa0 


03AF 


2SF3 


0SB1 


06PE 


05B3 


78 


03Bi 


FEFF 


03B6 


21 0BB8 


06B9 


C2 02DD 


0SBC 


21 14B5 


03BF 


7E 


0SC0 


23 


05C1 


FEFF 


03C3 


08 


03C4: 


FE83 


05C6 


2SF7 


03C8 


E5 


03C9 


32 1433 


06CC 


0602 


05CE 


CD 1832 


03D1 


2A 14:B3 


05D4 


CD 06DA 


03D7 


El 


0SD3 


18E5 



Subroutine : 

This subrout 
reals from e 
A list of un 
The list is 

rdtest : 

shld 

> First we chs 
Ixi 
mvi 

. .test: mov 
inx 
cpi 
jrz 
cpi 
jrz 
tnvi 

. . checkrmov 
cpi 
Ixi 
jn2 

; At least one 
Ixi 



ril; 



no V 

inx 

cpi 

rz 

cpi 

jrz 

push 

sta 

mvi 

call 

Ihli 

call 

pop 

jmpr 



rdtest 

ine supervises 
ach unit under 
its under test 
terninated by a 

rdparamster 
ck that indeed 
H,TsTanits 
B,2 
A,M 
H 

0FFh 
. . check 
30h 
. . test 
B,0FFh 
A,B 
0FFh 

H,Ter.nLO& 
errexit 
unit is logged 
H^TstUnits 
A,M 
H 
0FFh 

80h 
..rdl 
H 

DSKNAME 
B,2 

chaMAPtyt 
rdparameter 
rdlunit 
.H 
..rdl 



the read procedure and 
test. 

is stored at TstUnits. 
n FFh. 



the 



m 



Save test parameter 
re are units to test 
Set addr of test list 
Zero out register B 

Get to next list addr 
End of list? 
Yes. 

Is this Logged out? 
Yes. Keep looking 
Mo. Set flag in B 
Check for flag 
Is it set? 
Get err msg ready- 
No . Die. 
Proceed with test. 



Get uni 
Get to 
Is this 
Yes. R 
Is unit 
Yes. Ge 
No. Sav 
Mo. Sav 
V/rite t 
Select 
Restore 
Write t 
Restore 
and wri 



t num to test 
next list addr 

last unit? 
eturn. 

logged out? 
t another one. 
e unit addr 
e unit num 
hru CP/M 'C' 
that unit 

test paramtr 
that'unit 

list addr 
te attain. 



05DA 




03DA 


E5 


05DB 


CD 143B 


05DE 


El 


03DF 


064C 


06E1 


C5 


03E2 


E5 ■ 


03E3 


7E 


03E4 


32 1484 



; Read tracks from table and test 
rdlunit : 

push H 

call HOME 

pop E 

mvi B,7S 

. .1: push 3 

push H 

mov A,M 

sta TRACK 



J home the disk 



; the table has 76 entries 
; save BC and HL 

; store table nunber from table 



TDL ZBZ CP/M DISK ASSEMBLER VERSIO^J 2.21 PASE 14 

.MAIN. - FLOPPY DiSfC TEST PROGRAM FOR DSC3/4: 

FDTEST 

03E7 21 3000 Ixi H,wrbuffer J fill ths wrbuffsr for 

05EA ED4B 14B5 Ibcd BQFLEN J compares 

03EE CD 3DA7 , call FILLPAT 

0SF1 CD 0D5A call rdtrk > read 3 times and check for 

05F4: 200A jrnz ..2 J errors 

03FS CD 0D5A call rdtrk 

03F9 2005 jrnz ..2 

06FB CD 0D5A - call rdtrk 

05FE 2803 jrz ..3 

0700 CD 3737 ..2: call rderr > error has occured 

0723 El ..3: pop H ; restore BC and HL 

0704 CI pop B 

0705 23 inx H ; update HL 

0706 10D9 djnz ..1 ; repeat until no more tracks 
0709 C9 rst 



TDL ZS0 CP/M DISK ASSEMBLER VERSION 2.21 
.MAIN. - FLOPPY DISK TEST PROGRAM FOR DSC3/4 
FDTEST 



PA3E 15 



A non-zero accuTiulator has been returned froTi wrtrk: 
or ritrk. This numher is an offset into the BIOS. 
We use it as an offset into our error table. Error 
flages are turned on, our current function (read or 
v/rite) is saved in ERRtry,ani we read in and save the 
NEC755 Error buffer (saved in the BIOS) and print 
it oat . 



0709 




0709 


F5 


070A 


21 aD20 


070D 


22 14AB 


0710 


3EFF 


0712 


32 1537 


0715 


21 076A 


0718 


CD 1385 


071B 


3 A 1483 


07 IE 


C630 


0720 


32 0C20 


0723 


21 2C1A 


0726 


CD 1385 


0729 


21 0C22 


072C 


CD 1385 


072F 


3A 1484 


0732 


CD 13A2 


0735 


182C 


0737 




0737 


F5 


0738 


21 0D5A 


073B 


22 14AB 


073E 


3EFF 


0740 


32 1537 


0743 


21 379A 


0746 


CD 1385 


0749 


3A 1483 


074C 


C630 


■074E 


32 3C20 


0751 


21 0C1A 


0754 


CD 1385 


0757 


21 0C22 


075A 


CD 1385 


075D 


3A 1484 


0760 


CD 13A2 



; Writs ani Read Error Routines 
wrerr : 



rderr: 



push 

Ixi 

shld 

mvi 

sta 

Ixi 

call 

Ida 

adi 

sta 

Ixi 

call 

Ixi 

call 

Ida 

call 

j:npr 



push 

Ixi 

shld 

mvi 

sta 

Ixi 

call 

Ida 

adi 

sta 

Ixi 

call 

Ixi 

call 

Ida 

call 



PSW j save error code 

H, wrtrk ; set up retry address 

ERRtry 

A,0FFh ; turn on err flag 

errf Ig 

H,wrer.^Sa > print error message 

prtmsg 

DSKNAME 

'a' 

sumAnm 

H,sumA 

prtmsg ; print 'DISK' and disk number 

H, sumAtrk 

prtmsg 

TRACK ; print track number 

prtA 

errrtn » jump to common section 



PSW 



; save error code 



H,rdtrk > set up retry address 

ERRtry 

A,0FFh ; turn on err flag 

errf Ig 

H,rderMSS > print error message 

prtmsg 

DSKNAME 

'0' 

sumAnm 

H , 5 urn A 

prtmsg ; print 'DISK' and diss number 

H, sumAtrk 

prtmsg 

TRACK ; print track number 

prtA 



0763 



Print out the current function (Writing linearly, 
Reading randomly, etc) 

Print out the NEC765 Flop Controller Chip 
13 chr buffer (kept in BIOS). 
Restore error offset value (returned from 
BIOS during Read/Write) and use it to jump 
to appropriate location in the error table, 
errrtn: 



TDL ZB0 CP/M DISK ASSEMBLER l^ERSIOM 2.21 
.MAIN. - FLOPPY DISK TEST PROJRA.M FOR DSC3/4: 
FDTEST 



PA:JE 16 



07S3 
0756 
0769 

076C 
076F 
0772 
0773 
0776 

077B 
077E 
0731 



21 1989 
CD 1385 
CD 1850 



2A 
11 
19 
11 
01 



0001 
009D 



153B 
0010 

EDB2 

21 153B 

CD 13BF 

Fl 



0732 21 37A6 

0735 5F 

0786 1600 

0788 19 

0789 E9 

073A 0D0A2057524:9 

079A 0D0A2052454:1 



Ixi 

call 

call 

Ihld 

Ixi 

iai 

Ixi 

Ixi 

LDIR 

Ixi 

call 

pop 

Ixi 
mov 
tnvi 
iai 
pcbl 

wrerMSJ: .asoiz 
rdgrMSa : .asciz 



tl, spaces 

prtmsg 

prtti.tis 

WBOOT 

D,0A0h-3 

D 

D,BlOSbuf 

B,16 

H,BIOSl)uf 
prtie 

P3W 

H,errtab-3 

E,A 

D,0 

D 



; space over 5 
; and print the 



[cr][lf]' 
[crlClf]' 



time 



HL = Bios cormiani buf aiir 
DE = Our buf holder 
BC = num of bytes to copy- 
Load in NEC765 err buf 
into our buffer. 
Print 16 byte NEC buffer 
restore error offset numb 



jump to 
routine 



appropriate 



WRITE ERROR 
READ ERROR 



07A9 
07A9 
07AC 
07AF 
07B2 
07B5 
07B8 
07BB 
07BE 
07 CI 

07C4: 

07C7 
07CA 
07 CD 



errtab 



C3 
C3 
C3 
C3 
C3 
C3 
C3 
C3 
C3 
C3 
C3 
C3 
C3 



27D0 
27EE 
081A 
0830 
085D 
288D 
0SA1 
0SD2 
0BF9 
092F 
096B 
0999 
09B6 



jmp 
JTIP 
jmp 
jmp 
jmp 
jmp 
jmp 
jmp 
jmp 
jmp 
jmp 
jmp 
jmp 



07D0 SSEKerr: 

07D0 21 07D6 Ixi 

07D3 C3 29CC jmp 

07D6 4:552524F523A seekMSJ: .asciz 

07EE SYNCerr: 

07EE 21 Z7F4: Ixi 

07F1 C3 22DD jmp 

07F4 53594E4:32065 syncMSS : .asciz 

031A DATAerr: 

031A 21 0820 Ixi 

031D C3 0A06 jmp 

0320 444154412043 dataYiSl :. asciz 



SEEKerr 

SYNCerr 

DATAerr 

TRACerr 

ENDTerr 

IDerr 

ORUNerr 

SECTerr 

PROTerr 

DENSerr 

MADRerr 

lOerr 

COMPerr 



H,seeteMS5 J Track error 

Ttypeerr 

'ERROR: equipment check 



0330 
0330 



TRACerr 



21 2836 



Ixi 



H,syncMSS ,' Chip and BIOS out of sync 

errexit ; -Terminal error 

'SYNC error - CPU and FDC out of sync ' 



H,dataMSS ; Sector type error 

Stypeerr 

'DATA CRC error ' 



H, tracMSS ; Track type error 



TDL Z30 CP/M DISK ASSEMBLER VERSION 2.21 
.MA.IN. - FLOPPY DISK TEST PROGRAM FOR DSC3/4 
FDTE3T 



PASE 17 



0333 C3 09CC jmp Ttypeerr 

0336 54:52414:32065 t rash'Sa : . asciz 'TRAC error - head over wrong cylinier 



035D 
035D 
0330 
0363 



21 0863 
C3 0A3F 

454E44542055 



ENDTerr: 

Ixi 
jmp 

enitMSj : .asciz 

V 



H,endtMS:J ; DMA type error 

Dtypeerr 

'ENDT error •- read beyond end of cyliade 



033D 
03SD 
0390 
0393 



21 2893 
C3 0A06 
494420435213 



IDsrr: 

Ixi 

Jt"P 
idMSi: .asciz 



H,idMS5 ; Sector type error 

Stypeerr 

'ID CRC error ' 



03A1 
03A1 
03A4 
0SA7 



21 08A7 
C3 ZA3F 
444D41224F52 



ORQNerr : 

Ixi 

orunMS J : .asciz 
me 



H,orunMSa ; DMA type error 

Dtypeerr 

'DMA ORUN - controller not seviced in ti 



03D2 
0SD2 

03D5 
03DS 



21 38DS 
C3 0A06 
534543542055 



SECTerr: 

Ixi 
jmp 

sect MS a: .asciz 



H,sect.'^Sa ; Sector type error 

Stypeerr 

'SECT error - Cannot find sector 



03F9 
03F9 
03FC 
03FF 
0902 



21 0902 
CD 1335 
C3 0105 
50524F542065 



PROTerr : 

Ixi 
call 
jmp 
protMSa : .asciz 
ART'Ccr] [If] 



H.protMSS ; Write protected 

prtitisg ; print a message 

start ; and restart 

'PROT error - disk write-protected . REST 



092F 
092F 
0932 
0935 



21 0935 
C3 09CC 
44454E532065 



DENSerr : 

Ixi 

jmp 
densMS j: .asciz 
address mark) ' 



H,densMSC ; Track type error 

Ttypeerr 

'DENS error - wrong density (missing ID 



095B 

096B 
096E 
0971 



21 0971 
C3 09CC 
4D4144522065 



MADRerr : 

Ixi 
jmp 

madrMS J : .asciz 



H.madrMSS ; Track type error 

Ttypeerr 

'MADH error - .nissing data address -nark 



0999 lOsrr: 

0999 21 099F 

099C C3 09CC 

099F 494E44455445 ioMSS: 



Ixi H.ioMSa J Undefined error assume 
jmp Ttypeerr ,* Track type error 
.asciz 'INDETERMINABLE error: ' 



09B6 COMPerr: 

09B6 21 09BC Ixi H,compMSa ; Sector type error 

09B9 C3 0A0S jmp Stypeerr 

09BC 434F4D504152 c ompMSa : .asciz 'COMPARE error: ' 



TDL ZB0 CP/M DISK ASSEMBLER VERSION 2.21 
.MAIN. - FLOPPY DISK TEST PROGRAM FOR DSC3/4 
FDTEST 



PA5E IB 







; TRACS type 


error 


09CC 




Ttypesrr : 




09CC 


CD 13B5 


call 


prtmsg 


09CF 


21 1439 


Ixi 


H, Terrors 


09B2 


CD 0AAD 


call 


incerr 


09D5 


01 ZA00 


1x1 


3,retry<B 


09DB 


C5 


. .1: push 


B 


09D9 


CD 143B 


call 


HOME ; 


09DC 


CD 0B0B 


call 


rd wrtrk 


09DF 


CI 


pop 


B 


09E0 


CA 09E4: 


jz 


-.2 ; 


09E3 


0C 


. inr 


c 


09E4 


10F2 


. . 2 : d j n z 


..1 ; 


09E6 


79 


mov 


A,c ; 


09E7 


FE0A 


cpi 


retry 


09E9 


CA 0A41 


Jz 


badtracfc > 


09EC 


CD 0CE2 


call 


ratioc > 


09EF 


F5 


push 


PSW ; 


09F0 


21 2C06 


1x1 


H,CaR2m5g 


09F3 


CD 1335 


call 


prtmsg 


03F5 


2A 14AF 


Ihld 


dskfunc 


09F9 


CD 1385 


call 


prtmsg 


09FC 


3E00 


mvi 


A,0 


09FE 


32 1557 


sta 


errflg 5 


0A01 


CD 170F 


call 


putEOF 


0A04: 


Fl 


pop 


PSW ; 


0A05 


C9 


ret 




0A06 




Stypserr : 




0A06 


CD 1335 


call 


prtmsg 


0A09 


CD 143B 


call 


HOME 


0A0C 


21 149A 


1x1 


HjSerrors 


0A0F 


CD 0AAD 


call 


incerr 


0A12 


01 2A00 


1x1 


B,retry<8 


0A15 


C5 


. .1 : Dush 


B 


0A16 


CD 0B0B 


call 


riv/rtrk ; 


0A19 


CI 


pop 


B 


0A1A 


2801 


jrz 


. • 2 J 


0A1C 


0C 


inr 


c 


0A1D 


10F5 


..2: ijnz 


..1 ; 


0A1F 


79 


mov 


A,c ; 


0A20 


FE0A 


cpi 


retry 


0A22 


CA 2A41 


jz 


badtrack > 


0A25 


CD 0CE2 


call 


ratioc ', 


0A28 


F5 


push 


PSW ; 


0A29 


21 2C0S 


Ixi 


, H,CUR2msg 


0A2C 


CD 1335 


call 


prtmsg 


0A2F 


2A 14AF 


Ihld 


dsfcfunc 


0A32 


CD 1385 


call 


prtmsg 


0A35 


3E00 


mvi 


A,0 ; 


0A37 


32 1537 


sta 


errf Ig 


0A3A 


CD 170F 


call 


putEOF 


0A3D 


Fl ■ 


pop 


PSW ; 


0A3E 


C9 


ret 


• 
1 



f print callers message 
I 

> update Track errors 
; retry the I/O 

rehome then retry 



retry a fixed number of times 

and see how many v/ere ok 
save the ansv;er 

if none then bad track 
otherwise print ratio 
Save OK retry attempts 
; 'Current function: ' msg 

; The cur func msg addr 



turn off the err flag 

Restore OE retry attempts 
and return 



; print callers message 
; rehome the disk 
; update Terrors 

; retry the I/O 

just retry 

retry a fixed number of times 

and see hov/ many were ok 
save the answer 

if none then bad track 
otherwise print ratio 
Save OK retry attempts 
; 'Current function: ' msg 

; The cur func msg addr 

turn off the err flag 



restore OS retry attempts 
and return 



TDL ZB0 CP/M DISK ASSEMBLER VERSION] 2.21 
.MAIN. - FLOPPY DISK TEST PROGRAM FOR DSC3/4: 
FDTEST 



pa:je 19 



0A3F 
0A3F 

0A4:1 
0A4:1 

0A44 
0A47 
0A4A 

0A4:D 

0A50 
0A53 
0A55 

0A58 
0A5B 
0A5E 
0A51 
0A64 
0A67 
0A6A 
0ASC 
0A6F 
0A72 

0A73 
0ABD 
0A9A 



18C5 



2A73 
1385 
1484 
13A2 
2A8D 
1385 

3E0A 

CD 13A2 



21 
CD 
3A 
CD 
21 
CD 



21 
CD 
21 
CD 
2A 
CD 



2A9A 
1385 
2C0S 
1385 
14AF 
1385 

3E00 

32 1537 

CD 170F 

C9 



Dtypeerr : 

JTipr 

badtrack: 

Ixi 

call 

Ida 

call 

Ixi 

call 

mvi 

call 

Ixi 

call 

Ixi 

call 

Ihli 

call 

mvi 

sta 

call 

ret 



0D0A42414420 baitMS;} 
204641494C45 bailMSJ 
205245545259 bai2MS5 



.asciz 
.asciz 
.asciz 



Stypeerr ; just call is a Sector error 



H,badtMStf ; print bad track message 

prtmsg 

TRACK 

prtA ; print bad track number 

H,badlMSS ; print next part of msg 

prtmsg 

A, retry 

prtA ; print amount of retries 

H,bad2MS3 ; print last part of msg 

prtmsg 

H,CUR2msg ,* 'Surrent function: ' ms! 

prtmsg 

dskfunc ; The cur func msg addr 

prtmsg 

A,0 

errflg > turn off error flag 

putEOF J and mark end of buffer 



[cr][lf]'BAD TRACK FOUND: TRACK ' 

' FAILED ALL ' 

' RETRjf ATTEMPTS. '[cr] [If] 



0AAD 




0AAD 


3A 1483 


0AB0 


1602 


0AB2 


5F 


0AB3 


19 


0AB4 


46 


0AB5 


04 


0AB6 


3A 0104 


0ABS 


B8 


0ABA 


3804 


0ABC 


2802 


0ABE 


34 


0ABF 


C9 


0AC0 




0(lC0 


21 2AE5 


0AC3 


CD 1385 



Subro 
Regs 
Incre 
disk 
We us 
into 
incerr: 



ut ine: 
in : 

ment the 
from the 



incerr 

HL = addr of error list 

error count and log out the 

test list if it shows FF errors 



e the disknumber (DSKNAME) 
the list. 



as an offset 



Log 
.1: 



Ida 
mvi 
mov 
dad 

mov 
inr 
Ida 
cmp 
jrc 
jrz 
inr 
ret 



DSKNAME 
D,0. 
E,A 
D 

B,M 

B 

m a X e r r s ^ 

B 

..1 

. .1 

M 



get current disk 

DS = current disk number 
HL = Byte addr in error 
list used by current disk. 
B = S or T errors on disk 
so far. 

Set max allowable errors 
max errs-current errs <- 2? 
Yes. Overflov;. Log drv out. 
Yes. Overflow. Log drv out. 
No. Increment error count 
and return. 



out the present disk due to error overflow 



Ixi H,oflowMSS 
call prtmsg 



> print overflow nessage 



TBL Z30 CP/M DISK ASSEMBLER VERSION 2.21 
.M^IN. - FLOPPY DISK TEST PROIR/^M FOR 0303/4 
FDTEST 



PA.GE 20 



0/lCS 


3E02 


0ACB 


32 1537 


0ACB 


CD 170F 


0ACE 


21 14B4 


0AD1 


3A 1485 


0ilD4 


47 


0AD5 


23 


0AD6 


7E 


0/ID7 


FEFF 


0/ID9 


CA 050D 


0ADC 


90 


0A.DD 


FE00 


0ADF 


20F4 


0AE1 


3680 


0AE3 


18F0 


0AE5 




0AE5 


0D0A455 


0AFF 


204F555 


0B2B 




0B0B 


2A 14AB 


0B0E 


E9 



,loop: 



rdivrtrk; 



mvi 


A,0 


sta 


errf Ig 


call 


putEOF 


Ixi 


H,TstUnits 


Ida 


D3KNAME 


mov 


B,A 


inx 


H 


mov 


A,M 


cpi 


0FFh 


jz 


tststrt 


sub 


B 


cpi 





jrnz 


. .loop 


mvi 


M,30h 


JTipr 


. . loop 



; and turn off error flag 



■1 ; get test list aidr 

get current disk name in B 

get to next list addr 

get disk nane froti list 

eni of list? 

Yes. Restart main test loop 

A = A - B 

Are list entry and dsk name 

identical? 

No. Keep looking for matcli 

Yes Log out that disk 

and look for another match. 



oflowMSS: 

.ascii [cr] [If ] 'ERROR OVERFLOW - 

.asciz ' OUT DISK'[cr] [If] 



LOGGING' 



Ihld 
pchl 



ERfitrY 



load 
and ! 



correct 
;o there 



call address 



0B0F 




0B0F 


3S00 


0B11 


32 1537 


0B14 


21 2BDB 


0B17 


CD 13S5 


0B1A 


CD 1850 


0B1D 


21 14B5 


0B20 


7E 


0B21 


23 


0B22 


FEFF 


0B24 


CA 0C4C 


0B27 


FE80 


0B29 


F5 


0B2A 


E5 


0B2B 


21 0B7C 


0B2E 


CC 1385 


0B31 


El 


0B32 


Fl 


0B33 


28EB 


0B35 


32 1539 


0B3B 


E5 


0B39 


CD 0B3F 


0B3C 


El 


0B3D 


18E1 



Subro 

Regs 
Regs 
Print 
prtdki : 



utine : prtdki 
in: none 

out: none 
the sunmary of 



all units under test. 



prtl 



mvi A,0 

sta errflg 

Ixi H,FDmsg 

call prtmsg 

call prttime 

Ixi H,TstUnits 

mov A,M 

inx H 

cpi 0FFh 

jz prtcur 

cpi 80h 

push PS I'/ 

push H 

Ixi H.LOGoutMSG 

cz prtmsg 

pop H 

pop PSW 

jrz . .prtl 

sta tmpDSK 

push H 

call prtlunit 

pop H 

jmpr ..prtl 



Make error flag is 
off during sumnary. 
Print 'FDTEST' aad 
space down a line. 
print out the tine & date 

Get entry in list 

Get to next addr 

End of table? 

Yes. Print current function 

Is unit logged out? 



Print logged out nessage 
IF unit is logged out. 

Yes. Skip it. 

No. Valid unit name found. 

Save table addr 

Print out that units info. 

Print next units info. 



TDL ZB2 CP/M DISK ASSEMBLER VERSIOM 2.21 
.MAIN. - FLOPPY DISK TEST PROGRAM FOR DSC3/4 
FDTEST 



PAiE 21 



0B3F 
0B3F 

0B4:2 
0B44: 

084:7 
0B4A 
0B4D 
0B50 
0B53 
0B56 
0B59 
0B5B 
0B5C 
0B5D 
0B5E 
0B61 
0B3i 
0B67 
0B6A 
0BSD 
0B6F 
0B70 
0B71 
0B72 
0B75 
0B7S 
0B7B 



3A 1539 

C632 

32 0C20 
2C1A 
1385 
3C2C 
1385 

14:9A 

1539 



21 

CD 

21 

CD 

21 

3A 

1600 

5F 

19 

7E 

CD 

21 

CD 

21 

3A 

1600 

5F 

19 

7E 

CD 

21 

CD 

C9 



13A2 
0C3B 
1385 
1489 
1539 



13A2 
198F 
1385 



'^ 

su 

H, 
pr 

H, 
pr 
H, 
tm 
D, 
S. 
D 

A, 
pr 
H, 
pr 
E, 
tm 

3, 
D 

A, 
pr 
H, 
pr 



pDSK 



mAn 

SUlT) 

tms 

sum 

tms 

Ser 

pDS 



A 



rors 
K 



; Print ths su.Timary for oae unit 
prtlunit : 

lia 

adi 

sta 

Ixi 

call 

Ixi 

call 

Ixi 

11a 

mvi 

mov 

dai 

mov 

call 

Ixi 

call 

Ixi 

Ida 

mvi 

mov 

dai 

mov 

call 

Ixi 

call 

ret 



r print disk name 
; make it ascii 



M » A = Sector errors on cur iisk 

tA ; Print A 

sumC 

tmsg 

Terrors 

pDSK 



A 



n 



; A = Track errors on cur disk 



tA ; Print A 

crlf 

tmsg ; Space down a line. 



0B7C 
0B7C 
0B98 
0BB8 
0BBB 
0BDB 
0BE9 
0BEB 
0BED 
0BF2 
0C06 
0C1A 
0G20 
0C22 
0C2C 
0C3B 



0C4C 
0C4C 

0C4:F 

0C52 
0C55 
0C57 
0C5A 



2A2A20544B45 
4F55542044:55 

2A2A20455252 

0D0A20464454 

322E 

3033 

2020202000 

43757272S53E 

43757272655E 

4449534B3A20 

5800 

2C2074726163 

2C20522F5720 

2C2054524143 



21 2BF2 
CD 1385 
3A 1483 
C630 
32 2C20 
21 2C1A 



L03outMSS: 

•ascii 
.asciz 

TermLOaOUt: 

.asciz 

FDmsgt .ascii 
•byte . 
• byte 
.asciz 
. asciz 
. asciz 
.ascii 
.asciz 
.asciz 
.asciz 
•asciz 



CURlmsg: 

CURSmsg: 

sumA: 

sumAnm : 

sumAtrk: 

sumB: 

sumC : 

; Print 
prtcur : 



'*=^ THE UNIT EERE 
'OUT DUE TO ERROR 



WAS LOSSED 
OVERFLOW. 



-i-i^'Ccr] [If] 
ALL DRIVES **' 



** ERROR OVERFLOW OM 
[cr] [If] \ FDTEST VER ' 
version+'0' , ^ • ' 
revision /I 0+'0',revision310+ '2' 

'Currently Testing: 
'Current Function : 
'DISK: ' 

', track: 

', R/i\' ERRORS: ' 
', TRACK ERRORS : ' 



the summary for the unit currently under test 



Ixi 

call 

lia 

adi 

sta 

Ixi 



H,CURlmsg 

prtmsg 

DSKNAME 

'0' 

sumAnm 

H, sumA 



Print current info 
print disk name 
: make it ascii 



header 



TDL ZB0 
.MAIN. ■ 
FDTEST 



CP/M DISK ASSEMBLER VERSION 2.21 
■ FLOPPY BISEC TEST PROGRAM FOR D5C3/4 



PAQE 22 



0C5D 
0C60 
0CS3 
0C66 
0C69 
0C6C 
0CSF 
0C72 
0C75 
0C7B 
0C7B 
0C7E 
0C31 
0C34 

0CS5 
0CB5 
0CBB 
0CBA 
0C3B 
0CBE 
0C90 
0C93 
0C95 
0C97 
0C9A 
0C9B 

0C9r 

0C9F 
0CA2 
0CA3 
0CA5 
0CAS 
0CAA 
0CAC 
0CAF 
0CB2 
0CB5 
0CBS 
0CBB 
0CBE 
0CC1 
0CC3 

0CC4: 

0CC7 
0CC7 
0CCA 
0:CD 

0CGE 

0CE2 

0CE2 
0CE3 
0CES 
0CE9 



CD 1335 
21 2022 
CD 1385 

3A 14:84: 

CD 13A2 
21 198F 
CD 1385 
21 2C06 
CD 1335 
2A 14:AF 
CD 1385 
21 198F 
CD 13S5 
C9 



CD 13FF 

FEFF 

C0 

CD 1407 

FE46 

CA 1142 

FE52 

20Z4 

CD 16DC 

C9 

FE53 

2004 

CD 2B0F 

C9 

FE54 

CA 3209 

FE51 

201B 

21 2CCE 

CD 1385 

CD 1407 

32 1391 

21 1391 

CD 1335 

3A 1391 

FE59 

C0 

C3 02D1 

21 156D 
CD 1385 



prtsum; 



. .1: 



,2: 



,3: 



C9 

455349542046 verMSl 



ratios 



C5 

21 0D00 

CD 1385 

CI 



call 

Ixi 

call 

lia 

call 

Ixi 

call 

Ixi 

call 

Ihld 

call 

Ixi 

call 

ret 



call 

cpi 

rnz 

call 

cpi 

jz 
cpi 

jrnz 

call 

rst 

cpi 

jrnz 

call 

ret 

cpi 

jz 

cpi 

jrnz 

Ixi 

call 

call 

sta 

Ixi 

call 

lia 

cpi 

rnz 

jmp 

Ixi 
call 
ret 
.asciz 



push 
Ixi 
call 
pop 



prtrnsg 

H, sumAtrk 

prtmsg 

TRACK 

prtA 

H,crlf 

prtmsg ; Space iown 

H,CaR2Ti5g 

prtmsg 

dskfunc 

prt.Tisg 

H,crlf 

prtmsg 



current disk function 



Space down a line. 
And finally return. 



CONST 
0FFh 



; has a char been read? 
; if not return 



CONIN ; else get it 

'F' ; Fixed test wanted? 

FIXTEST ; Yes. 

'R' ; R? print the error buffer? 

. .1 

prtbuf 



'S' 
..2 
prtdki 



> if 'R' then print error baf 

> is it an 'S' (summary?) 

; if 'S' then print disk status 



'T' ; If T' get new test disks 

clrERR ; Clear err counters and restrt 

'3" ; Is it a 'Q? (quit) 

..3 ; if not prt help msg & return 

H.verMSS ; verify 

prtmsg 

CONIN 

retdsk 

H,retMS3 > print answer 

prtmsg 

retdsk i restore A 

'Y ' ; is answer yes? 

exit 

; Bad entry. Print HELP message 
H,HELPmsg 
prtmsg 

'EXIT FDTEST (Y/N)? ' 



B ; save C 

H , . . A 

prtmsg ; print ratio message 

B ;■ restore C 



TDL ZB0 CP/M DISK ASSEMBLER VERSION 2.21 
.MAIN. - FLOPPY DISK TEST PROGRAM FOR DSC3/4 
FDTEST 



PASE 23 



0CEA 79 

0CEB CD 13A2 

0CEE 21 0D13 

0CF1 CD 1385 

0CF4: 3E0A 

0CF6 CD 13A2 

0:F9 21 ZDIC 

0CFC CD 1385 

0CFF C9 

0D00 0D0A52657472 

0D13 206F7574:206F 

0D1C 2E0D0A00 



it 
the 



mo7 A,C ; into A 

call prtA ; and print 

Ixi H, . .3 ; and print 

call prtmsg > message 

jivi A, retry 

call prtA 

Ixi H,..C 

call prtmsg 

ret 

.asciz [cr] [if ] 'Retry Failures i 

.asciz ' out of 

.asciz '. '[cr] [if] 



rest of the 







> 

; ii/rite 


a singl 


e traclt 


0D20 




wrtrk: 






0D20 


CD 0CS5 




call 


prtsum > 


0D23 


21 3000 




Ixi 


H,wrbuffer 


0D26 


ED4B 1435 




Ibcd 


BUFLEN 


0D2A 


CD 0DA7 


) 


call 


FILLPAT 


0D2D 


3A 1483 




Ida 


DSSNAME 


0D30 


0602 




mvi 


B,2 


0D32 


CD 1832 




call 


chaMAPbyt 


0D35 


3A 1484 




Ida 


TRACK 


0D38 


4F 




mov 


c,A ; 


0D39 


CD 144B 




call 


SETTRK 


0D3C 


0E01 




mvi 


c,i ; 


0E3E 


CD 1453 




call 


SETSEC 


0D41 


01 3000 




Ixi 


B.wrbuffer 


004:4: 


CD 145B 




call 


SETDMA ; 


0D4:7 


ED4B 1435 




Ibcd 


BUFLEN 


0D4:B 


CD 147B 




call 


SETBYT ; 


0D4:E 


CD 146B 




call 


WRITE ; 


0D51 


FE24 




cpi 


36 ; 


0D53 


FA 0D5S 




jm 


..0 


0D56 


3E24 




mvi 


A, 36 ; 


0D53 


B7 


. .0: 


era 


A 


0D59 


C9 


• ,,_ 


ret 





print summary if req.uestei 
; fill wrbuffer pattern 



0D5A 




0D5A 


CD 0C85 


0D5D 


3A 1483 


0DS0 


0602 


0D62 


CD 1832 


0D55 


3A 1484 


0DSB 


4F 


0D59 


CD 144B 


0D6C 


0E01 


0D5E 


CD 1453 


0D71 


01 5000 


0D74 


CD 145B 


0D77 


ED4B 1485 


0D7B 


CD 147B 



first track 
then sector 

then buffer address 

and finally buffer length 
write the "buffer 
check for errors 

any out of range are ? 



; Read a track and compare 
rdtrk: 

call prtsuTi ; print summary if requested 

Ida DSKNAME 

:nvi B,2 

call ChaMAPbyt 

Ida TRACK J set up bios calls 

mov C, A ; first track 

call SETTRK 

mvi C,l » then sector 

call SETSEC 

Ixi B,rdbuffer J then buffer address 

call SETDMA 

Ibcd BQFLEN I finally buffer length 

call SETBYT 



TDL ZB0 CP/M DISK ASSEMBLER VERSION 2.21 
.M/ilM. - FLOPPY DiSSf TEST PROGRAM FOR D3C3/4: 
FDTEST 



PA&E 24: 



0D7E 


CD 1453 


0BB1 


FE24 


0DB3 


FA 2D83 


0DBS 


3E24 


0DBB 


B7 


0DB9 


C0 


0D3A 


CD 0DSE 


0D3D 


C9 



call 
cpi 

j^ 

mvi 

ora 

rnz 

call 

ret 



; ani read the track 
; check for errors 



READ 
35 

..1 

A, 36 ; any out of range are ? 
A 



COMPARE ; and compare the data 



0DBE 
0DBE 
0D91 
0D94: 
0D9B 
0D99 
0D9A 
0D9C 
0D9D 
0D9E 
0D9F 
0DA0 
0DA1 
0DA3 

0DA4: 

0DAS 



21 5002 . 

11 3002 

ED4B 14B5 

lA 

BE 

2003 

23 

13 

0B 

79 

B0 

20F5 

C9 

3E27 

C9 



; Compare read and write buffers 
COMPARE: 



. .<c\ 



Ixi 

Ixi 

Ibcd 

Id ax 

cmp 

jrnz 

inx 

inx 

lex 

mov 

ora 

jrnz 

ret 

mvi 

ret 



H.rabuffer 

D,wrbuffer 

BUFLEN 

D 

M 

. .2 

H 

D 

B 

A,C 

B 

..1 



get byte at (DE) 
compare with byte at (HL) 
check for error ! I ! 
update HL ani DE 

check for end of compare 



A, 39 



; loop back for more 

; compare error is 39 in table 



0DA7 




0DA7 


3 A 14AD 


0DAA 


FEFF 


0DAC 


CA 2DC9 


0DAF 


3A 14B8 


0DB2 


07 


0DB3 


07 


0DB4 


07 


0DB5 


57 


0DB6 


3A 1484 


0DB9 


82 


0BBA 


77 


0DBB 


C62F 


0DBD 


EEDl 


0DBF 


0F 


0DC0 


57 


0DC1 


23 


0DC2 


0B 


0DC3 


79 


0DC4 


B0 


0DC5 


7A 


0DC6 


20 F2 


0DCB 


C9 



Fill buffer 
HL = Buffer 
F I LLP AT: 

Ida 
cpi 

jz 
Ida 
rlc 
rlc 
rlc 
mov 
Ida 
add 
. .1 : mov 
adi 
xri 
rrc 
mov 
inx 
dcx 
mov 
ora 
mov 
jrnz 
ret 



with a pattern (random or fixed) 
address, BC = number of bytes to fill 



fixflg 

2FFh 

FIXFILL 

RANSEED 



D,A 

TRACK 

D 

M,A 

2Fh 

2Dlh 

D,A 

H 

B 

A,C 

B 

A,D 

..1 



fixed pattern desired? 

use second routine 

seed with ranseed and track 



» write byte to memory 
; get next random # 



save random fr 

update HL 

and BC 

test for end of loop (BC=2) 

; restore raadom #, to A 
; and loop 



;fill entire buffer with 'wrstbyt' 



TDL Z32 GP/M DISK ASSEMBLER VERSION 2.21 PASE 25 

.MAIN. - FLOPPY DISK TEST PROGRAM FOR DSC3/4 

FDTEST 



worst byte into buf 
to naxt buf aidr 



0Dca 


FIXFILL: 






0DC9 


3A 0103 


Ida 


wrstbyt 




0DCC 


77 


mov 


M,A 


; put 


0DCD 


23 


inx 


H 


5 get 


0DCE 


0B 


icx 


B 




0DCF 


79 


mov 


A,C 




0DD0 


FE00 


c^pi 







0DD2 


20F5 


jrn?. 


fixfill 


; loo 


0DD4 


78 


mov 


A,E 




0DD5 


FE00 


cpi 







0DD7 


20F2 


jraz 


fixfill 


; loo 


0DD9 


C9 


ret 







back 
back 
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PA5E 23 



113F 
114Z 
1141 



1142 
1142 
1145 
1148 






«t» s^ str «l^ .«« 



.'* »t* kIj vI* ,** .t» ,t* sTj ,t> »t^ J, ,1, ,t^ ,i> ,r* kV ''^ »i'* «'* si* J* -V • V *'' 1^* 1** *'■" 

*|« 'J-* ',« •'^'^ 'i^ 'i** '1^ '^^ '(^ '|S *f( rjv '!« •^1 fj* «,£ r,« r^M ^jO ip ^« >|b r^ ifi e^t if, «|« 



FIXED TRACK TESTINa SECTION 



0DDA 0D0A46445445 fixmsg; 

0DEF 526561642F57 

0E2S 205468697320 

0E24 69766520522F 

0E4e 2023416C6C0D 

0E60 206669,736554 

0E75 64697370SC51 

0E9A 0D0A41667465 

0EB8 657865537574 

0EDC 207468652053 

0EEB 54686520SE75 

0F10 206465746553 

0F34 S96E746F2D0A 

0F51 2020496E2074 

0F77 746865203136 

0F95 74726F6C6C65 

0FB1 20646973706C 

0FBC 0D0A0A00 

0FC0 0D0A546S6520 offmsg: 

0FDA 206973207455 

0FF3 0D0A00 

0FF6 0D0A57697368 cont:Tl5! 

1011 0D0A0A commsg; 

1014 2020435F5D5D 

1338 0D0A 

103A 202020202020 

125F 0D0A 

1061 202020202020 

127F 0D0A 

1031 202020202020 

12A3 747261636B0D 

13AA 202020202020 

10CE 726567755C51 

12DF 202020202020 

1103 207379737455 

110F 204S6978S554 fxRDms; 

1127 2046697B6554 fx^fRjiS! 



.ascii 
.ascii 
.ascii 
.ascii 
•ascii 
.ascii 
.ascii 
.ascii 
.ascii 
.ascii 
.ascii 
.ascii 
.ascii 
.ascii 



.ascii 
. ascii 
.asciz 
.ascii 
.ascii 
.asciz 
.asciz 
. ascii 
.ascii 
.ascii 
.ascii 
.ascii 
.ascii 
.ascii 
.ascii 
.ascii 
.ascii 
.ascii 
.ascii 
. asciz 
.asciz 
.asciz 



[cr][lf] 
'Read/Wr 
' This s 
'ive R/W 
' All'[ 
,; fixed 
"display 
Ccr][lf] 
'execute 

the CO 
'The num 

detect 
'into ' [c 
' In th 



'FDTES 
its Op 
ub-pro 
testi 
cr] [If 
patter 
el iur 
'After 
d , a h 
nsols . 
ber wi 
e i , or 
r] [If] 
e even 



T fixed t 
tion' [cr] 
gram alio 
n^ on a s 
] Writes 
n byte; 
ing 'Writ 

each Rea 
sx number 
'[crj [If] 
11 be 2 i 

it will 
'the FLTE 
t the nu.Tj 



rack 

[If] [If] 
ws interact' 
ingle track. ' 
use only the' 



ing 



XXq fixed 
d or Write is 
is printed to' 

f no errors ar= 
be the offset ' 
SI error table 
ber is not a 



.ascii 'the 16 byte NEC765 ' [cr] [If] 'Floppy con' 



'troller error buffer will be' 

' displayed.' 

[cr][lf][lf] 

[cr] [If ] The buf f er-to-disk write' 

' is temporarily disabled.' 

[cr][lf] 

[cr] [If] 'Wish to continue? (Y/N) ' 

[cr][lf][lf] 



R - Read and test ' 
y - Write and test ' 
S - Su.Ti.'nary' 
T - Test a new ' 



CcTiTianis are: 
[cr][lf] 

[cr] [If] 
[cr][lf] 

'track'[cr] [If] 

D - Done, resume 
'regular testing ' [cr] [If] 

X - Done, eXit to' 
' system. '[cr] [If] [If] 
' Fixed Track Reading. ' [cr] [If ] 
'Fixed Track '//riting. ' [cr] [If ] 



00 
00 
00 



21 2DDA 
CD 1385 
21 0FF6 



tmpflg: .byte 02 

fxtrack: .byte 00 

fxlisk: .byte 00 

J Inform user he has selected fixed track testing. 
FIXTEST: 

Ixi H, fixmsg 

call prtmsg >' Tell user he's in fixed moie 

Ixi H.contnsg 



lliB 


CD 13B5 


114E 


CD 1407 


1151 


F5 


1152 


32 1391 


1155 


21 1391 


115B 


CD 1365 


115B 


Fl 


115C 


FE4E 


115E 


C8 


115F 


FE59 


1161 


2803 


1153 


21 2434 


1166 


CD 1385 


1159 


13E3 
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FDTEST 

call prtmsg ; Ask user if he wants to cont 

..0: call CONIN ; :Jet console chr 

push ?3W 

sta retdstc 

Ixi K.retMS^:} 

call prtmsg i Echo the chr 

pop P S W 

cpi 'N' ; Chickened out? 
rz ; res. Resume testing, 

cpi 'Y' ; Brave? 

jrz fxstart ; Yes. Start initialization 

Ixi H.errmsg 

call prtmsg ; Wrong entry. Print nessage 

jmpr ..2 ; and ask again. 

; Initialize. Save users current disk-write option. 
; Disable disk-write option if enabled. Set fixed 

; pattern flag, (used in FILLPAT by wrtrk/rdtrk. 

IISB 3SFF fxstart :mvi A,0FFh 

USD 32 14AD sta fixflg ', Set fixed pattern v/rite flag 

1172 3A 1623 Ida dskflg ; Save current disk flag. 

1173 32 113F sta tmpflg > and make sure its off. 
1176 FE00 cpi 

1173 2873 jrz ..1 ; Its off. Get test info 

117A 3E02 mvi A,0 

117C 32 162B sta dskflg 

117F 21 2FC2 Ixi H,offmsg; Say we turned off disk write 

1132 CD 1385 call prtmsg 

1185 1866 jmpr ..1 > get test info 

1137 . .iskmsg: 

1137 0D0A496E7075 .asciz [crHlf] 'Input disk Qumber to test :' 

11A5 ..trkmsg: 

11A5 0D2A496S7075 .ascii [cr] [if ]' Input track number' 

11B9 20746F2074S5 .asciz ' to test (in hex) and <CR> :' 

11D6 ..rdymsg: 

11D6 0D0A455E7455 .asciz ^ [cr] [If ] 'Enter first command 

; ^et disk and track number to test. 

IIED 21 1137 ..1: Ixi H,..dskmsg 

11F0 CD 1335 call prtmsg 

11F3 CD 1333 call getdsk 

11F6 21 2434 Ixi H,errmsg 

11F9 FEFF cpi 0FFh ; Just carriage return? 

IIFB CC 1335 cz prtmsg ; Yss. Print error message 

IIFE 2SED jrz ..1 ; and ask a^^ain. 

1222 32 1483 sta DSKNAME ', No. Its valid. Store it. 

1203 21 11A5 ..2: Ixi H,.. trkmsg 

1206 CD 1385 call prtmsg 

1209 CD 1326 call putBUF ; Set ascii chrs in conbuf 

; A = length of users chr string. 

120C 21 2434 Ixi H.errmsg; let error message ready 

120F FE0Z cpi ; Just carriage return? 

1211 CC 1385 cz prtmsg ', Yes. Print error message 

1214 28ED jrz ..2 ; and ask again. 
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PA.5E 2S 



1216 


CD 12F8 


call 


1219 


32 1434 


sta 


121C 


21 1011 


Ixi 


121F 


CD 1385 


call 


1222 


21 IIDS 


Ixi 


1225 


CD 1385 


call 


122S 


CD 122D 


..wait; call 


122B 


18FB 


jmpr 



makEBYT J No. Make chrs into a byte. 

TRACK ; Stor2 it as the track. 

H,commsg 

prtmsg > Print commani summary 

H, . .riyTisg 

prtmsg > Tell user to input first 

; command. 

readCON ,* Wait for the first commani 
. . wai t 



All data collected for FIXTE3T 



122D 




122D 


CD 13FF 


1232 


FEFF 


1232 


C0 


1233 


CD 1407 


1236 


F5 


1237 


32 1391 


123A 


21 1391 


123D 


CD 1385 


1240 


Fl 


1241 


FE52 


1243 


2009 


1245 


21 110F 


1248 


22 14AF 


124B 


C3 1293 


124E 


FE57 


1250 


2009 


1252 


21 1127 


1255 


22 14AF 


1258 


C3 1279 


125B 


FE53 


125D 


2004 


125F 


CD 0C4C 


1232 


C9 


1253 


FE44 


12S5 


2349 


12S7 


FE54 


1259 


CA 116B 


125C 


FE58 


125E 


283D 


1272 


21 1011 


1273 


CD 1335 


1276 


C3 122D 



readCON: 

call 

cpi 

rnz 

call 

push 

sta 

Ixi 

call 

pop 

cpi 
jrnz 

Ixi 
shld 

jmp 

. .Wchk: cpi 
jrnz 
Ixi 
shld 
jmp 

. . S c h k : cpi 
jrnz 
call 
ret 

. .Dchk: cpi 
jrz 

cpi 
jz 

cpi 
jrz 

; Invalid chr 
Ixi 
call 
jmp 



CONST 
0FFh 



Check for console input 
Console chr ready? 
No. Resume to rding/wrting 
Yes. Read the chr. 



CON IN 

PSl^' 

re task 

H, retnsg 

prtmsg j Echo the character to console 

PSW 

'R" ; Read and test? 

. .Wchk ; No. Check for W 

H.fxRDmsg 

dskfunc ; Put cur func in suriTiary 

fxread 

'W ; Write and test? 

. .Schk ; No . Check for S 

H,fxWRmsg 

dskfunc ; Put cur func in summary 

fxwrite 



. .Dchk 
prtcur 



'D' - ; 
fxreturn 



Summary wanted? 
No. Check for D 
Yes. Print it 

and return. 



'T' ; 
fxstart 



fxahort 



Done? 

Test New track? 
; Abort test? 



entered. 

H,commsg;Bad entry. Print 
prtmsg ;help summary 
readCON Jand return. 
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1279 
1279 
127C 
127F 
12B0 
1233 
1235 
12BS 
1239 
123B 
12BE 
1291- 



21 2002 

CD 0D23 

F5 

CD 13A2 

0E20 

CD 1421 

Fl 

FE00 

C4 12E2 

CD 122D 

IBEe 



; Fixsl test operating routines 
fx write: 



Ixi 

call 

push 

call 

mvi 

call 

pop 

cpi 

cnz 

call 

JTipr 



H,lintab 

wrtrk 

PSW 

prtA 

C ' ' 

CONOUT 

PSW 

00 ; 

fxprtbuf ; 

readCON ; 

fxwrite ; 



= AOK write 
Save error code 
Print 00 console 
and space over. 



Did write 
No. Print 
Check: for 



go OK? 

NEC error buffer 

new con command 



VIrite again and again 



12S3 
1293 
129S 
12 99 
129A 
129D 
129F 
12A2 
12A3 
12A5 
12AB 
12AB 

12AD 



21 2000 

CD 0D5A 

F5 

CD 13A2 

0E20 

CD 1421 

Fl 

FE00 

C4 12E2 

CD 122D 

18E6 

C3 02D1 



fxreai: 

Ixi 

call 

push 

call 

mvi 

call 

pop 

cpi 

cnz 

call 

jmpr 

f xabort : j.-np 



H,l 
rdt 

psy 

prt 

C,' 

CON 

PSW 

00 

fxp 

rea 

fxr 



intab 
rk 

A 

OUT 



; Save error code 
; Print 00 console 
; and space over. 



; Did write go OK? 

rtbuf; No. Print NEC error buffer 

dCON ; Check for new con command, 

ead ; Read again and again..... 



exit 



12B0 
12B0 
12B3 
12B6 
12B9 
12BC 
12BF 



f xreturn 



21 12C2 
CD 1385 
3A 113F 
32 162B 
31 7000 
C3 0209 



Ixi H,..rtnMSS 

call prtmsg > 

Ida tmpflg 

sta dskflg ; 

Ixi sp, stack; 

jmp clrERR ; 



Tell user were 



leaving 



Restore disk flag. 
Re-initiate stack 
Restart FDTEST 



12C2 
12C2 
12C5 
12DC 
12DD 



0D0A0A 

52657475725E 
05 
2020202220 



•rtn^SG 



conbuf 



,ascii Ccr] [If] [If] 

.asciz 'Returning to FDTEST ' [cr] [If ] [If ] 

,byte 5 ; CPM buffer length 

• byte 20h,20h,20h,20h,20h ', CP/M buffer space 



Fixtest Subroutines 



12E2 
1222 



2A 0001 



Subroutine: fxprtbuf 

Load the NSC765 Flop Cont Chip Error buffer 
into memory and print it out. 
fxprtbuf: 

Ihld WBOOT 
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PASE 32 



12E5 


11 009D 


12EB 


19 


12E9 


11 153B 


12EC 


01 Z010 


12EF 


EDB2 


12F1 


21 153B 


12F4: 


CD 13BF 


12F7 


C9 



Ixi 


D,2A0h-3 




iai 


D 


" HL - 


Ixi 


D.EIOStuf 


• DS =• 


Ixi 


B,16 


BC = 


LDIR 




Loai 


Ixi 


H,BIOSbuf ' 


into 


call 


prtl5 


Print 


ret 







Bios cojiJiani buf aiir 
Our buf holier 
num of "bytes to copy 
in NEC765 err tuf 
our buffer. 
16 byte NEC tuffer 



12FS 




12FS 


FE01 


12FA 


0600 


12FC 


21 12DE 


12FF 


2815 


1301 


7E 


1302 


23 


1303 


FE4:1 


1305 


3304 


1327 


E6DF 


1309 


D607 


130B 


D630 


130D 


FE02 


130F 


2306 


1311 


B7 


1312 


07 


1313 


07 


1314 


07 


1315 


07 


1316 


47 


1317 


7E 


131B 


FE41 


131A 


FA 1321 


131D 


E6DF 


131F 


D60? 


1321 


D630 


1323 


B7 


1324 


80 


1325 


C9 



Subroutine: makHBYT 

Regs in: A=length of console buffer 

Regs out: A=hex byte made fro.T console buffer 

Destroyei: HL,A,B,C 

Make a hex byte from one or two buffer chrs 
makHBYT: 

cpi 1 ; just one chr? 

mvi S,0 

Ixi iI,conbuf+2 ; load Ist chr addr 

jrz ..al ; process 1st chr only 
Jmultiply first chr by IS and save in B 

mov A,M ; get 1st chr 

inx H ; get to next chr 

cpi 'A' 



.a2: 



al 



.a3 



jrc 

ani 

sui 

sui 

cpi 

jrz 

ora 

rlc 

rlc 

rlc 

rlc 

mov 

mov 

cpi 

jm 

ani 

sui 

sui 

ora 

aid 

ret 



. .a2 

0DFh 

'A'- 

'0' 



. .al 

A 



; make all letters upper case 

-1 



; skip mult if nibble is 
) reset carry flag 



B,A Jsave 16*f irstnumber in B 

A,M ; get 2nd chr 

'A' 

. .a3 

0DFh ; make all letters upper case 

'A'-'3'-l 

'0' 

A ; reset the flags 

'B ; add the tv;o chrs 



1325 
132S 
1328 



0E0A 
11 12DC 



Regs in: 



Regs out: 
Destroyed: 

Put console input in a buffer 
putBUF: 

mvi Cbufread 

Ixi D,conbuf 



Subroutine: putBDF 

HL=address of Tiessage to print 

A =number of chrs put in buffer 
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132B CD 2005 

132E . 21 12DD 

1331 7E 

1332 C9 



call BDOS ; put consols input in buffer 

Ixi H,conbuf+l 

mov A,M ; put num of buffer chrs in k 

ret 



TDL Z30 CP/M DISK A.SSEMBLER VERSION! 2.21 
.MMN. - FLOPPY DISK TEST PROGRAM FOR DSC3/4: 
FDTEST 



PASE 32 



1333 




1333 


CD 1407 


1335 


FE0D 


1333 


2816 


133A 


FE33 


133C 


30F5 


133E 


FE30 


1340 


38F1 


1342 


F5 


1343 


32 1391 


1346 


21 1391 


1349 


CD 1385 


134C 


Fl 


134D 


DS30 


134F 


C9 


1350 


3EFF 


1352 


C9 
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Jet iisk nans, return 0FFh if cr 



getisk: 



. .3 



call 

cpi 

jrz 

cpi 

jrnc 

cpi 

jrc 

push 

sta 

ixi 

call 

pop 

sui 

ret 

mvi 
ret 



CONIN 
cr 
. .3 
'S' 

get isle 
'0 ■ 
getisk 

PSW 

retdsli: 

H,retMSS 

prtmsg 

PSW 

'0' 



get a char 

Carriage return? 

Yes. Handle it specially 

Is it legal? 

No . Fetch next chr . 

Is it legal? 

No. Fetch next chr. 

save the char 

echo char then crlf 



restore PSW 

t?et iisk select number 



,0FFh ; Put flag into reg A 



1353 




1353 


CD 1407 


135S 


FE03 


135B 


CA 02D1 


135B 


FE45 


135D 


30F4 


135F 


FE41 


1361 


33F0 


1363 


F5 


1364 


32 1391 


1367 


21 1391 


135A 


CD 1385 


136D 


Fl 


135E 


D341 


1370 


C9 



ret CP/M disk name (A, B, C, or D) from user 



getCPMisk 



call 
cpi 

jz 
cpi 

jrnc 

cpi 

jrc 

push 

sta 

Ixi 

call 

pop 

sui 

ret 



CONIN 

3 

exit 

'D'+l 

gstCP^isk 

getCPMdsk 

PSW 

retisk 

H,retMSS 

prtmsg 

PSW 

'A' 



get console chr 
Is chr a ctrl-C? 
Yes . Abort . 
Is it too large? 
Yes. Fetch next chr 
Is it too s.nall? 
Yes. Fetch next chr 
No. Echo valid chr 



; Make it 0,1,2, et; 
; and return. 



1371 




1371 


21 1395 


1374 


CD 1385 


1377 


CD 1407 


137A 


FE0D 


137G 


20F9 



; Wait 

v/aitcr 



.1 



for a cr 

Ixi 

call 

call 

cpi 

jrnz 



H,waitMS3- 
prtnsg 
CONIN ; 
cr ;, 
. .1 



J print a message 

get a char 
loop if cr 
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137E 


21 


1392 


13B1 


CD 


1385 


1334 


C9 





Ixi 

call 

ret 



H.crlff^SS ; print 
p r t m 5 g 



;rlf 



1335 
13S5 
1336 
1337 
1338 
1339 
133 A 
13SD 
133E 
13BF 



7E 
B7 

ca 

E5 

4F 

CD 1421 

El 

23 

1SF4 



Prin 
Reta 
tagg 
prtmsg 



t a .Tiessage addresssi by HL. 

rn on a null ( 00 ) . A null is automatically 

sd onto the end of any '.asciz' command. 



mov 

ora 

rz 

push 

mov 

call 

pop 

inx 

jmpr 



A,M 

A 

H 

C,A 

CONOUT 

H 

H 

prt.nsg 



; get next char 

return if zero 

save HL 

output the char 

; restore HL 

; increment to next char 

) print it 



1391 
1391 
1392 
1395 



41 

0D0A00 

547970652052 



retMS^: 
retdsk:: .byte 
crlfMSa: .asciz 
waitMS J : .asciz 



'A' 
[or] [If] 

'Type RETURN 



13A2 




13A2 


F5 


13A3 


07 


13A4 


07 


13A5 


07 


13A6 


07 


13 A7 


CD 13AF 


13AA 


Fl 


13AB 


CD 13AF 


13AE 


C9 


13AF 




13 AF 


E60F 


13B1 


FE0A 


13B3 


FA 13BB 


13B6 


C607 


13BS 


C630 


13BA 


4F 


13BB 


CD 1421 


13BE 


C9 



13BF 
13BF 
13C0 



E5 

21 13E5 



; Print the A register as a hex number 
prtA : 



Pr 



prtn 



. .1: 



int 
ib: 



push 

rlc 

rlc 

rlc 

rlc 

call 

pop 

call 

ret 



PSW 



prtnib 

PSW 

prtnib 



a nibble 

ani 
cpi 

jm 

aii 

adi 

mov 

call 

ret 



0Fh 

Id 

..1 

7 
'0' 

G,A 
CONOUT 



; save A 

; get upper nibble 



> print it 

; restore A 

> print lover nibble 



J mask to get nibble 
; convert to ASCII 



; Su 
; Pr 

; Us 
; Rei 
prtl: 



broutine: prtl6 

int header and 16 chracters to the console. 

ed for printing out NEC765 BIOS error buffer 



m; 



push 
Ixi 



HL 



H 



address of 1st chr 



H,Headms^ 
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PA3E 34 



13C3 


CD 1385 




call 


prt.T.sg 


13C6 


El 




pop 


H 


13C7 


3E10 




mvi 


A, 16 


13C9 


F5 


..cnt: 


push 


PSW 


13CA 


E5 




push 


H 


13CB 


7E 




mov 


A,M 


13CC 


CD 13A2 




call 


prtA 


13CF 


0E20 




mvi 


c,' ' 


13D1 


CD 1421 




call 


CONOUT 


13D4 


El 




pop 


H 


13B5 


23 




inx 


H 


13D5 


Fl 




pop 


PSW 


13D7 


3D 




icr 


A 


13D3 


FE00 


I 


cpi 





13DA 


2802 




jrz 


. .rest 


13EC 


ISEB 




jtnpr 


. . cnt 


13rE 


21 1S3F 


. .rest : 


Ixi 


H,crlf 


13E1 


CD 1335 




call 


prtpisg 


13E4: 


C9 




ret 




13E5 


4E4543373635 


headmsg 

• _— — — — — 


: . a s c i z 


'NEC755 Er 




; Call 


bios dir 


ectly using 


0001 




WBOOT 


= 


1 


13FF 




CONST: 






13FF 


2A 0001 




Ihld 


WBOOT 


li02 


11 0003 




Ixi 


D,03h 


li05 


19 




iai 


D 


1406 


E9 




pchl 




1407 




CONIN: 






1407 


21 1413 




Ixi 


H , . . 1 J 


140A 


E5 




push 


H 


140B 


2A 0001 




Ihld 


WBOOT 


140E 


11 200S 




Ixi 


D,3Sh 


1411 


19 




dad 


D 


1412 


E9 




pchl 




1413 


FE03 


..1: 


cpi 


3 ; 


1415 


CA 02D1 




Jz 


exit ; 


141B 


FE61 




cpi 


'a' ; 


141 A 


D8 




re 




141B 


FE7B 




cpi 


'z' + l 


141D 


D0 




rnc 




141E 


D620 




sui 


'a--'A' 


1420 


C9 




ret 




li21 




CONOUT: 










JThs ch 


r arrive 


s in Reg C. 


1421 


3A 1537 




Ida 


errflg ; 


1424 


FEFF 




cpi 


0FFh 


1426 


200B 




jrnz 


c h r u t ; 


1423 


CD 16CF 




call 


wrthuf ; 


142B 


3A 162B 




Ida 


dskfl^ ; 


142E 


FEFF 




cpi 


0FFh 



-or Flag Euffei' ' 
WBOOT in low memory 



J return to ..1 



3 is Control-C 
Wboot if Control-C 
make result UPPER CASE 



is this part of an err msg? 

just output the chr 

put chr in error buffer (R) 

do we put this into disk buf? 
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PA.5E 35 



li30 



CC ISAC 



cz 



stobyt ; put it in iisk "buffsr 



1433 


2 A 


2001 


chrout : 


Ihld 


WEOOT 


li3S 


11 


ZZ09 




Izi 


D,09h 


1439 


19 






4ai 


D 


143A 


E9 






pchl 




li3B 






HOME: 






li3B 


2A 


0001 




Ihld 


V/BOOT 


14:3E 


11 


2015 




Ixi 


D,15h 


liil ■ 


19 






dai 


D 


li4:2 


E9 






pctil 




1443 






SELDSK: 






1443 


2 A 


2201 




Ihld 


W300T 


1446 


11 


201S 




l-/i 


D,lSh 


1449 


19 






dai 


D 


144A 


E9 






pchl 




144E 






SETTRK: 






144B 


2A 


0001 




Ihld 


WBOOT 


144E 


11 


201B 




Ixi 


D,lBh 


1451 


19 






dad 


D 


1452 


Eg 






pchl 




1453 






SETSEC: 






1453 


2A 


0001 




Ihld 


WBOOT 


1456 


11 


201E 




Ixi 


D,lEh 


1459 


19 






dai 


D 


145A 


E9 






pchl 




145B 






SETDKA: 






145B 


2 A 


0001 




Ihld 


WBOOT 


145E 


11 


2021 




Ixi 


D,21h 


1451 


19 






dad 


D 


1432 


E9 






pchl 




1453 






READ: 






1463 


2A 


0001 




Ihld 


WBOOT 


1453 


11 


2024 




Ixi 


D,24h 


1459 


19 






dai 


D 


145A 


E9 






pchl 




145B 






WRITE: 






146B 


2A 


0001 




Ihld 


WBOOT 


146E 


11 


2027 




Ixi 


D,27h 


1471 


19 






iai 


D 


1472 


E9 






pchl 




1473 






CPMMAP: 






1473 


2 A 


0001 




Ihld 


WBOOT 


1476 


11 


2060 




Ixi 


D , e0h 


1479 


19 






dai 


L 


147 A 


E9 






pchl 





TDL ZS0 

.MAIN. - 
FDTEST 
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• FLOPPY DISK TEST PROGRAM FOR DSGS/4 



PAJS 35 



li7B 
li7B 

147S 

14:31 

1432 

1433 
1434 
1435 
1437 
1438 
1439 
149A 
14AB 
14AD 
14AF 



SETBYT 



2A 0001 
11 3066 
19 
E9 

00 

00 

0000 

00 

00 

000000000000 

000000000000 

0000 

0000 

0000 



DSKNAME: 

TRACK: 

BUFLEM: 

LOOPS: 

RANSEED: 

Terrors : 

Serrors : 

ERRtry: 

fixflg: 

dskf unc : 



Ihld WBOOT 

Ixi D,66h 

dai D 
pchl 

; .byts 00 

.byte 00 

.word 00 

.byte 00 

.byte 00 

.byte 0,2, 0,0, 0,0,0,^,0,0, 2, 3, 0,0, 0,0,0 

.byte 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 2, 0,0, 3,0 

.word 0000 

.word 0000 ; flag: fixed or randoTi pattern 

.word 0000 ; current R/IV func under test 



2000 
204C 
2098 



lintab 

wrtab 

rdtab 



2000h 

lintab+76 

v/rtab+76 



3000 
5000 
7000 

14B1 
14E3 
14B5 

14E5 



0000 
0000 



wrbuffer= 30001i 
rdbuffer= 5000h 
stack = 7000h 

wrparaiieter : .word 

rdpara.neter : .word 
Tstanits: 

.blkb 128 



0000h ' ; Tenp holder for read 
0000h. ; & write paraTieters . 



Space for list of 
units under test. 
FFh terminates list 



TDL ZS0 
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PASE 37 



vU u# ^h. jt, J, J, ^1, J, J, J, »!, J, ji, a, J, wt, a. j> .1- .1- ,1* J, J- J- J, *i* J- J- J- J- *'> *»<• *t» J- *i- -*> J* ,1- «•- j"- »•-' -4 J- -'> j^ ;'; 
'I- ' 

=i' ERROR BUFFER Dkllk, DEFS, AND SUBROQTINES - 

'.: * 

^U J* «*<■ -^f '.>' .<' .J' .1^ .(' J^ •*' v<« .'« .•< ,l« J. 0« .•' O. .).• .1^ J^ ^t. .<> «<< vl^ ..•< vl> i.'f .'' ..■j J' O^ -•« ^<> J^ sl« J^ ■.!' «''' v'> .<« .1^ .•« -V •'" 
r,-. *■,•• 'l- f,- 'P '^ *,% r,- #f. .-,;» *'4-» /p -p <^* ,,» *p -,* r^■. ,^■* *,, ,,, ^t yp ,jS #p ^p ,p ,p ^p *p *p ^p ^p *p 3p Jp ^p (-p Fp ,p ,p ^p ,p ,p -^ ^H 



7Z00 




021A 




1525 


0000 


1537 


00 


1533 


00 


1539 


00 


153A 


00 



erbuff2r= 7000h 

EOF = lAh 
errbufair: ,wori 00h 

errflg: .byte 

ERRDSK: .byte 

tmpDSK:: .byte 

orgiriir : .byte 



; Current spot in err buffer. 

; Write, flag for error buffer. 

; Holder of error disk number. 

; Temp holder of a disic number 



Drive to boot to 



disic 

when 



done 



; The NEC7S5 Error buffer results are stored here. 
153B 000000200000 BlOSbuf : .byte 0,0,0,0,0,0,0,0,0,0,3,0,2,0,0,0,0,0,0 



154:E 0D0A2A2A2A54: 

153D 0D0A0A202020 

1564 0D0A20202020 

159A 0D0A204:6202D 

15B4 0D0A2052202D 

15D4 0D0A2053202D 

15F4 0D0A2054202r. 

1S0C 0D0A2051202D 

1625 0D0A00 

152S 0000 

132A 00 

152B 00 
152C 



messages 



; Output 
truncmsg: .asciz 
HELPmsg: .ascii 
. a 5 c i i 
.ascii 
•ascii 
.ascii 
. ascii 
.ascii 
.asciz 



[cr] [If] '***TRUNCATED TEST LISTING*"' 



buf chr : 
buf cnt : 
dskfl^: 
dskbuf : 



. v.'ori 

■ byte 
.byte 

■ blkb 



[cr][lf][lf]' 
[cr][lf]' 
[cr][lf]' 
[cr][lf]' 
[cr] [If]' 
[cr][lf]' 
[cr][lf]' 
[or] [If] 



Comiiani Summary' 







123 



F - 

R - 

5 - 

r - 

Q. - 



Fixed track testing' 
Read out the error buffer' 
Print the current summary' 
Restart the test 
Optional Halt/Stop' 



; filled in at START 

; updated by stobyt ,Di5ki t 

; chr buffer for disk outp 



15AC 
13AC 
16AD 
ISAE 
ISAF 
1SB0 
15B3 
ISBi 
16B5 

1SB8 
15BE 
ISBC 
13BE 



F5 
C5 
D5 
E5 
2A 
71 
23 
22 



1628 



1623 



3A 162A 
3C 

FE80 
3805 



Subroutine: stobyt 
Re?5 in: A (a console input or output character) 
out: A (unchanged character) 
destroyed: none 
Variables used: bufchr -next chr in buffer 

bufcnt -chr counter 



Regs 
Regs 



STOBYT 



push 


PSW 


push 


B 




push 


D 




push 


H 




Ihld 




bufchr 


mov 




M,C 


inx 




H 


shld 




bufchr 



; increment counter and test for 
Ida bufcnt 
inr A 
cpi 123 
jro ..not full 



get next chr addr 
v/rite it to buffer 
increment buff adir 
save next chr addr 
full buffer 



123 
No. 



thrs ready? 
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PASE 33 



1SC0 


CD 


1746 


15C3 


C3 


17E4: 


15C6 






13C5 


32 


162 A 


16C9 


79 




15CA 


El 




13CB 


Dl 




ISCC 


CI 




ISCD 


Fl 




15CE 


C9 





call 

jmp 
notfull: 
sta 

iHOV 

pop H 
pop D 
pop B 
pop PSW 
ret 



Diskit 

BUFreset 

"buf cnt 
A,C 



; Yes. Put it on iisk 

; if disk: fla^ is sst , 

; Reset, and return. 

> save chr counter 

> restore chr 



13CF 




ISCF 


E5 


13B0 


2A 1535 


1SD3 


71 


1SD4 


23 


13D5 


361 A 


15D7 


22 1535 


ISDA 


El 


13DB 


C9 



ISDC 




13DC 


21 19SF 


15DF 


CD 1385 


1SE2 


3E00 


13E4 


32 1537 


15E7 


21 7000 


ISEA 


7E 


13EB 


FEIA 


ISED 


C8 


15EE 


4F 


13EF 


23 


1SF0 


E5 


15F1 


CD 1421 


13F4 


CD 13FF 


1dF7 


FEFF 


loF9 


El 


13FA 


C2 16EA 


ISFD 


E5 


15FE 


CD 1407 


1701 


CD 13FF 


1704 


FEFF 



Regs in: 
Regs out: 
Destroyed : 
Write a char a; 



WRTBQF 



push 
Ihld 
mov 
inx 
mvi 
shld 
.pop 
ret 



Subroutine: v;rtbuf 



ter to the error buffer 



H 

errbuf adr 

M,C 

H 

M,EOF ; 

errbufadr 

H 



tag on an EOF (lAh) 



Subroutine: prtbuf 



Regs in: 
Regs out: 
Destroyed : 



Print 
PRTBUF 



out the error buffer to the console 



outchr 



.1 



Ixi 

call 

mvi 

sta 

Ixi 

mov 

cpi 

rz 

mov 

inx 

Bush 

call 

call 

cpi 

pop 

jnz 

Dush 

call 

call 

cpi 



H,crlf 

prtmsg Jspace down 

A,0 

errflg Jmake sure err flag is 

H.erbuffer ; load err buf addr 

A,M ;get chr in A 

lAh ;eof? 



off 



C,A 

H 

H 

CONOUT 

CONST 

0FFh 

H 

outchr 

H 

GONIN 

COWST 

0FFh 



Jget chr in C 

;get to next buf adr 

Jsave buffer address 



Jchr ready? 
;restore buffer addr 
; if not , out next chr 
;save buffer addr 
;eat the chr 
;ready to resume? 
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PASE 39 



17Z5 
170B 
170B 
170C 



20F9 

CD 1407 

El 

C3 16EA 



jrn z 
call 
pop 
jmp 



170F 




170F 


E5 


1710 


2A 1535 


1713 


3E1A 


1715 


77 


1716 


23 


1717 


77 


171B 


23 


1719 


77 


171A 


El 


171B 


C9 



Regs 

Regs 

Dest 

Put a 

putEOF 



iq: 
out: 
royei : 
n Eni of 

push 

Ihld 

mvi 

mov 

inx 

mov 

inx 

mov 

pop 

ret 



. .1 

CONIN 

H 

outchr 



;wait for next chr 
Jeat the chr 
;save buffer aiir 
jresums outputting buffer 



Subroutine 

none 
none 
none 
File marker 

H 

errbuf adr 

A, EOF 

M,A 

H 

M,A 

H • 

M,A 

H 



putEOF 



(lAh) at etid of buffer, 



TdL ZS0 
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CP/M DISK /ISSEMBLER VERSION 2.21 
- FLOPPY DISK TEST PROGRAM FOR DSC2/4: 



PAGE i0 



.!« «lf >■« -J^ J> J, J< ^u •■V •'' ->'' -■' -■' >U -'« .l< J< J< 
fj* »|V '4> •(* '|« -,•. ,^ ,,» rjl. 'I* rg* rfs -,-. r,* f,i ^j* *,* r,^ 



« -k^f K*^ *^^ «.t^ «'> ^O ^^ J^ «'^ X*^ J^ «t^ h'' «'^ •'' «'^ k'^ ^'^ 



" DISK WRITE (OF CONSOLE OUTPaT) DEFS AND SUBS * 

«0 J' -J' •.•' .U Jl, Jt, J, ^, J* U' J^ .1^ J« .i* .,'' .!< .!< vt.* .t. ,l> J, .t« ^1, ^, J, J* ^tf ^t, J, .t. J, .t, .t, ..I, J, J, J, J, J« «!, J, vl^ ,«« ,*« J, Jt^ .)« 
'P 'I" '!"■ 'P 'I* 'l* 'i* 'i* 'l* *l* 'P 'p '("• 'i* '(*• 't* 'p 'p 'l* '1* '1* 'i* '1* '(* '»■* 'p 'l* 'I* '(* "i* 'V* '4* 'l* 'l* 'P ** 'i* 'i* '(* ')* *!* 1^ 'I* i* I* 't* ^"^ 'P 



0005 




020A 




000D 




000E 




000F 




0012 




0013 




0015 




0015 




001A 




0Z22 




0040 




171C 


00 


171D 


00 



171E 



0000 



BDOS 

buf rsa 

reset 

logisfc 

open 

close 

kill 

create 

wnr 

lina 

SDbyt 

DDbyt 

DENSby 

MAPbyt 

; File 
FCBaii 



i = 



t : .byte 
: .byte 



05h 

0Ah 

0Dh 

0Eh 

0Fh 

10h 

13h 

ISh 

15h 

lAh 

0000 

0100 

00h 

00!i 



; write next record 

0020b ; SD flop device code 

0000b ; DD flop device code 

; Density for test 

; Users current MAPbyte 



Control Block Address, 
r: .word 0000h 



(Either below or 5Ch) 



1720 
1721 
172C 
1739 



1746 



1746 
1749 
174B 



174C 
174F 



3A 162B 

FEFF 

C0 

01 00S0 
CD 147B 



Internal File Control Block 
(For CP/M file management) 



00 FOB: 

434F4E46494C 

000000000000 

000000000000 



.byte 

.ascii 'GONFILE TXT' 

.byte 0,0,0,0,0,0,0,0,0,0,0,2,2 

.byte 0,0,0,0,0,0,0,2,0,0,2,2,2 



Subroutine: Diskit 



Regs in: None 
Regs out: None 
Regs destroyed: 
Variables used : 



None 

buf chr ,buf cnt 



The 
is 
rec 
cur 
(du 
fil 
loc 
it 
DISK 
;mak 



12 
ope 
ord 
ren 
mpi 



8 chr buffer (at dskbuf) is full. CONFIDE. TXT 
ned, and the next record to write, the FCB 

count is found and loaded into the FCB 
t record. We write to the next record 
ng from the 123 chr buffer), then close the 
Next, we check the currant error buffer 
on. Restart the error buffer if 

passed B000h. 



ati 
has 

IT: 

e sure disk-write flag is set 



dskflg 
0FFh 



; reset 



Ida 
cpi 
rnz 

the bytes-per-read value 
Ixi B,12B ; normal I/O byte value 
call SETBYT 



; Is flag set? 

; No. Return to stobyt 
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pa:}e i: 



1752 
1755 

1753 
175B 
175D 

1732 
17S2 
1766 



1759 
17SC 
17SF 
1770 
1771 
1774 
1777 
1773 

1779 
177C 
177E 

1751 

1735 
1797 

173A 
173C 
173F 
1792 
1795 
1793 
179A 
179B 
179E 
17 A0 
17A3 
17A5 

17BB 
17BE 
17C0 

17C3 
17C7 
17C9 
17CC 
17CS 
17CF 
17D2 
17D5 



3A 
CD 



1538 
1841 



.11 2080 
0E1A 
CD 0005 

0E2F 

SD5B 171E 
CD 0005 



2A 
11 
19 
7E 
2A 
11 
19 
77 



171E 
200F 



171E 
2022 



11 162C 
0E1A 
CD 0005 

ED5B 171E 

0E15 

CD 0005 

FE00 

CA 17BB 

21 17A5 

CD 1385 

3A 1538 

C641 

4F 

CD 1421 

0E3A 

CD 1421 

1816 

0D0A4361SE74 

11 2080 
0E1A 
CD 0005 

ED5B 171E 

0E10 

CD 0005 

FEFF 

C0 

21 17A5 

CD 1385 

3A 1538 



;sel5ct 
; reset 

; open t 



;3et to 
; find 



C, open 

FCBaddr 

BDOS 
recori of file ani 
record count then set 

FCBaddr 



load 
next 



cur 
rec 



;set i.Ti 



; w r i t ; 



;che3!£ 



badwrns 

;re5St 

resDMA: 



; close 



the error disk 

Ida ERRDSK 

call resMAPtyt 
the dna 

Ixi D,B0h 

mvi C,dma 

call BDOS 
he file 

mvi 

Ided 

call 

last 
FCB's 

Ihld 

Ixi D,15 

dad D 

mov A,M 

Ihld FCBaddr 

Ixi D,32 

dai D ; 

mov M , A ; 
a address 

Ixi D,dskbuf 

mvi C,dma ; 

call BDOS 
the record 

Idei FCBaddr 

mvi ' C,wnr Jv/rite next 

call BDOS ; write buffer 
for successful write 

cpi ; 

jz resDMA ; 

Ixi Hjbadwrmsg ; 

call ^rtmsg 

Ida ERRDSK 

aii 'A' 

mov C.A 

call CONOUT 

mvi C, : 

call COMOUT 

- jmpr resDMA 
g: .asciz [cr] [if] 'Cant 
dma 

Ixi D,30h 

mvi C.dma 

call BDOS 
file CONFILE.TXT 



prepare to open file 



FCB's current record 



; get rec count in ace 



rec addr 
is now cur 



I/O rec 



; 123 chr buffer addr 
prepare to set dma 



record 
to disk 



errors? 

No. 

Yes. 



v.'rits data to 



Ided 


FCBaddr 


mvi 


C .close 


call 


BDOS ; 


cpi 


0FFh ; 


rnz 




Ixi 


H,badwrmsg; 


call 


prtmsg 


Ida 


ERRDSS 



close tiie'file 
OK close? 
Yes . Return . 
No. Load err msfr 
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PAGE 42 



i7Da 


C641 


aii 


'A' 


17DA 


4:F 


mov 


G,A 


17DB 


CD 1421 


call 


GONOUT 


17DE 


0E3A 


mvl 


C,':' 


17E0 


CD 1421 


call 


CONOUT 


17 E3 


C9 


ret 





17E4 



17E4 


3A 1433 


17E7 


0602 


17E9 


CD 1832 


17EC 


ED4B 1435 


17F0 


CD 147B 


17F3 


21 162C 


17F6 


22 1628 


17F9 


3E00 


17FB 


32 162A 


17Fi 


2A 1535 


i. 3 »-.' J. 


3:cB0 


lS'c'5 




13"^ 


"" 1E2: 


ih;-? 




15"'". 


22 1525 


13^?E 


o""r 


130F 


32 1537 


1B12 


21 154E 


1315 


CD 1385 


1318 


3E00 


IBIA 


32 1537 


13 ID 


CD 170F 


1320 


El 


1321 


Dl 


1322 


■•J i. 


1B23 


n 


1324 


c? 



; ani return, 



Suboutine: BUFreset 

Reset variables, buffers, counters, and iisfc selects. 

BUFreset: 

; re select test iisk 

Ida DSKNA.^E 

mvi B,2 

call chaMAPbyt ', select test disk 
Jrestore ttie original bytes-per-read value 

Ibcd BUFLEN 

call SETB'/T 



Jreset 123 chr disk 'buffer and reset counter 

Ixi H,dskbuf 

shld bufcbr J reset buffer for next 123 

mvi A,0 

sta , bufcnt > reset counter 



TCheck the error buffer to see if wave passed B000h. 

Ihid errbufadr J get current err buf addr 

mvi A,0B0li 

cmp K ; have we passed B000h? 

jp resume ', Mo, errbuf is not full. 
;rrror buffer is full. Reset it. Leave 'truncate' :nsg. 



Ixi 

shlJ 

[TlVl 

sta 

Ixi 

call 

mvi 

sta 

call 



a, er Duffer 
errbufadr 

r , .; I tl 

errflg i 
n, truncnsg 
prtmsg ) 
A,0 

errflg J 
putEOF ; 



turn on err buf write flag 

'buffer truncated' 

turn off err buf write flag 
label end of err buffer , 



JRebalance the stack and resume testing 
resume: pop H 

pop D 

pop B 

pop PSitf 

ret 



JSubroutine : 
; Regs in: 
> Regs out: 



sto'liPbjr 



dls^ numb2r of '"r.E'cyte to store 



none 
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PAiili! ^3 



;D£Stroy=i, 



any ani/or all registers 



Save the current assignment for restoration. 



1325 
1325 
1328 
132B 

132E 
1331 



3A 0004 
32 153A 
CD 1473 

32 171D 
CS 



stoMAPbyt: 
Ida 



BIOS 



sta 
call 
aiiress 
sta 
ret 



04 ; set current drive 
orgdriv > and save for restoration. 
CPMrnap > get current assignment 
of the tyte returns in HL 
MAPbyt ; save it for later restoration 
; and return. 



Subroutine 
Regs in: 

Regs out: 
Destroyed: 



chaMAPbyt 

A = unit number to assign 

B = CP/M device number to 

none 

any and/or all registers 



to 
assign 



from 



Change 



the assignment 



1332 






1332 


F5 




1333 


48 




1334 


CD 


1443 


1337 


CD 


1473 


133A 


CI 




133B 


3A 


171C 


133S 


B0 




133F 


77 




1340 


C9 





; (received in B) to that 
) unit number received in 
ChaMAPbyt 



of the CP/M drive number 
of a floppy disk on the 
the accumulator. 



push 
mov 
call 
call 
Current unit 
BIOS address 
pop- 
Ida 
ora 
mov 
ret 



PSW 
C,B 

SELDSiC 
CPMrnap 



Save unit number 



f 

MAPbyte byte adir 
7) assignment ( network, etc) returns in A 
of the byte returns in HL 



select unit 
get current 



B 
DENSbyt 

B 
M,A 



Restore unit number in B 
'Set floppy density code 
A = A <or> B = New MAPbyte 
Store it in the BIOS 



; Subroutine : 
; Regs in: 
; Regs out: 
;Destroyed: 



resMAPbyt 

A = disk number of MAPbyte to restore 

none 

any and/or all registers 



1341 






1341 


3A 


153A 


1344 


4F 




1345 


CD 


1443 


1348 


CD 


1473 


134B 


3A 


171D 


134E 


77 




134F 


C9 





; Restorethe 

resMAPbyt: 
Ida 
mov 
call 
call 

jCurrent unit 

;BI03 address 
Ida 
mov 
ret 



error disk assignment 



orgdriv 
C,A 



Set 



and 
and 

get 



our original disk 
put it in C 
select buffer-write 
BlOSmap addr 



SELDSK 

CPMrnap 
assignment returns in A 
of the byte returns in HL 

MAPbyt ; original assignment 



unit 



M,A ; restore previous 
; and return. 



assignment 
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PASE 44 



0044 
0045 

0046 

1350 



1350 


21 197A 


1353 


CD 13B5 


1356 


21 0044 


1359 


7E 


135A 


21 1992 


135D 


FE01 


135F 


CA 1S3D 


1362 


21 1997 


1365 


FE02 


IBS? 


CA 183D 


136A 


21 199C 


135D 


FE03 


15SF 


CA 16BD 


1B72 


21 19A1 


1375 


FE04 


1377 


CA ISBD 


1S7A 


21 19A6 


137D 


FE05 


137F 


CA 18BD 


1332 


21 19AB 


1335 


FE0 6 


1337 


CA 18BD 


1B3A 


21 19B0 


133D 


FE07 


133F 


CA 18BD 


1392 


21 19B5 


1395 


FE0S 


1B97 


CA 18BD 


139A 


21 19BA 


139D 


FE09 


139F 


CA 18BD 


13A2 


21 19BF 


■13A5 


FE0A 


1BA7 


CA 18BD 


13AA 


21 19C4 


13AD 


FE0B 


13AF 


CA 18BD 


13B2 


21 19C9 



kV -J^ -*» 1*' .•' Jr J' J«> -'' ^' •■<■ .u -u J^ J' «.u J' -*« -^M <>■> Af ,■< ,^ «■# .<<■ -f* sir J-* ■-*' •>* •*-• -■•■ •^f «■' si' J' «•> -x- J* Of «v ^' 0- .■-• .o J' •X' 

'I* *)* '^ '1^ '(« •)« *(• »|0 'i^ '|« «tS '|> ',« '!« <|« rf* '4S rp «^« r|V -^v Ip ^p r|« ',« 'I* >!> '|* '^ 'f *{* »|« r|* ^s «p «|S j^ «|« '|« r^ *^ 1^ ^^v (p ')« ^|> '|« 

>;< * 

* TIME PRINT-OUT DATA.DEFS, AND SUBROUTINES * 

5*i jIc ^C sli ;'i ;*; ^'' *'■• •■•^ !*f ;'' *•* i** *'* -'* \** V* •'* ''* »'* ■*■• -V *•* o* ,•* »•* »•* v'* »'* -•* .'- »i* »•<• »'* <^** -** ••* .** .'- »•* »•* j» o<. «■<• .'* .1- >>- 

*■,» ^("> i^-* r^t, »j» *,fc ^j, ^^, ,|H .(» •■j-* r|« *(t r^t *,* ?j.t ^* «|« *j^ ,,•* ^« *ji ,j» ^» 3j» *|^ r^ r^t »,> »j» ,j» ,j» ,,5 yp ^p ^,^ r|« e^t t^*- f^■^, •»(» r|-* r^ r\i, •(• i-p Jj» 



(Fron Utility Program 'TIME'.) 

3et ths iate frcn 44h,45h, & 45h 

ani print out in tnonths (J-F) ,(iays 

(1-31), and year (00-99). D. Stein 29/05/30 



month = 

lay 

year 

« 

prttiTi5 : 

;Drint th 
1 
c 

;out the 
1 
m 
1 
c 



44h 
45h 

45h 



e date message 

xi Hjdatmsg 

all prtmsg 

-nonth.day and year (XXX-DD-YY) 

xi H, month 

ov A,M ;i-l2 in A 

xi HjJan.nsg 

pi 1 ;January? 

z prmnth 

xi H.FetiTisg 

pi 2 JFebruary? 

z prmnth 

xi H,Mar.Ti5g 

pi 3 ;March? 

z prmnth 

xi H,Apr.T]Sg 

pi 4 ;April? 

z prmnth 

xi H,May.T]Sg 

pi 5 ;May? 

z prmnth 

xi H,Junmsg 

pi 6 JJune? 

z prmnth 

xi H.Julmsg 

pi 7 JJuly? 

z prmnth 

xi H,Augmsg 

pi 8 JAugust? 

z prmnth 

xi H,Sepmsg 

pi 9 jSeptember? 

z prmnth 

xi HjOctTisg 

pi 10 jOctober? 

z prmnth 

xi H,Novmsg 

pi 11 ;November? 

z prmnth 

xi H,Decmsg 
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PA(iE i5 



13B5 


FE0C 


13B7 


CA 18BD 


13BA 


21 19CE 


IBBD 


CD 1385 


13C0 


21 2045 


13C3 


7E 


13C4 


CD 1950 


1SC7 


FE0A 


13C£ 


F2 13D3 


13CC 


F5 


13CD 


0E30 


i3cr 


CD 1421 


13D2 


Fl 


13D3 


CD 1959 


13DS 


0E2D 


13D3 


CD 1421 


13DB 


21 2046 


13DE 


7E 


IBDF 


CD 1950 


13E2 


FE0A 


13E4: 


F2 IBSE 


1SE7 


F5 


13EB 


0E32 


13EA 


CD 1421 


15ED 


Fl 


13EE 


CD 1959 


13F1 


21 198B 


13F4 


CD 1335 



0241 
0042 
0043 



1SF7 
13FA 

13FD 
1900 



21 1981 
CD 1385 

21 2043 
7E 



cpi 

jz 
Jerror trap 

Ixi 
prTinth: call 

» 

prtiay: 1x1 
mo V 
call 



12 iDacember? 
prmnth 

H.XXXmsg 
prtT)Sg 

H,day 

A,yj 

cvtbcd 



;i5 Isaiing necsssary? 



aa2; 



cpi 

JP 
push 

mvi 

call 

pop 

• 

» 

call 

mvi 

call 



13 

aa2 

PSW 

C,'0' 

CONOUT 

PSW 

prfbyt 
C '-' 

CONOUT 



> out a leading 2 



; out the day 



Ixi H,ysar 

m V A , Yi 

call cvtbcd 

;i5 leading' necessary? 

cpi 12 

jP aa3 

push PSW 

mvi C,'0' 

call CONOUT 

pop PSw 



aa3: 



call 



Jspace over 
Ixi 
call 



prtbyt ; date is all out. 

H , spaces 
prtmsg 



; Print the real time (in hours and Tiiautes and seconds) 

; as represented "by these bytes: 
seconis = 41h 
minutes = 42h 
hours = 43h 



Priat the time on the DSC/3 or DSC/4. 
-This proeram is used in conjunction with the TIMERopt 
option of the BIOS on the DSC/3 and DSC/4. 
The BIOS maintains the time in locations 42h-43h. 

Print the time message 
Ixi H,timmsg 
call prtmsg 
; Print the hours 

Ixi H, hours 

mov A,M ;get hours in A 
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PASE iS 



1901 


CD 1950 


132i 


FE0A 


1906 


F2 1910 


1909 


F5 


190A 


3E30 


190C 


CD 1421 


190F 


Fl 


1910 


CD 1959 


1913 


0E3A 


1915 


CD 1421 


191S 


21 2042 


191B 


7S 


191C 


CD 1950 


191F ^ 


FE0A 


1921 


■F2 192B 


192i 


F5 


1925 


0E30 


1927 


CD 1421 


192A 


Fl 


192B 


CD 1959 


192E 


0E3A 


1930 


CD 1421 


1933 


21 2041 


1936 


7E 


1937 


CD 1952 


193A 


FE0A 


193C 


F2 1946 


193F 


F5 


1940 


0E30 


1942 


CD 1421 


1945 


Fl 


1946 


CD 1959 


1949 


21 19SF 


194C 


CD 1335 


194F 


C9 



call cvtbcd 

;is leading necessary? 



1950 




1950 


B7 


1951 


CS 


1952 


47 


1953 


AF 







cpi 


12 






jp 


bbl 






push 


PSW 






oivi 


A,'0' 






call 


coNour 






pop 

• 


PSW 


bbl: 




call 


prtbyt 






mvi 


C.':' 


• 




call 


CONOUT 


; Pr 


int 


the minutes 


prtTiin: 


l:ci 


il,7iinu 



mov A,M Jget 

call cvtbcl 

;i5 Isaiing necessary? 



minutes in A 



bb2: 



Cpl 

jp 

push 

mvi 

call 

pop 

call 

mvi 

call 



12 

bb2 

PSW 

C , '0 ' 

CONOUT 

PSW 

prtbyt 
C ' : ' 

CONOUT 



; Print t 

prtsec : 1 

m 



bb3 



he seconis 

xi H, seconds 

ov A,M 

all cvtbci 

is leading necessary? 

pi 10 

p bb3 

ush PSW 

vi C,'0' 



all 
op 

all 
xi 

all 



CONOUT 
PSW 

prtbyt 
H,crlf 
prtmsg 



space down 

finished printing ti.Tie 



Convert binary to BCD 



Regs in: A 

Regs out i A 

Destroyed: B 
cvtbcd : 



ora 
r z 
mov 
xra 



= byte 

= byte 



B,A 
A 



to be converted 
in BCD format 
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1954 
1955 
1956 
195B 



1959 
1959 
195A 
195B 
195C 
195D 
195E 
1950 
1962 
1955 
1966 
1£68 
195A 
196C 
196D 
196E 
1971 
1972 
1973 
1975 
1976 
1979 



197A 
1931 
1&3S 
193F 
1992 
1997 
199C 
19A1 
19A6 
19AB 
19B0 
1935 
19BA 
19BF 

19C4: 

19C9 
19CE 



3C 
27 

10FC 
C9 



F5 

0F 

0F 

0F 

0f 

E60F 

2803 

CD 1966 

Fl 

S60F 

C630 

FE3A 

4:F 

F5 

DC 1421 

Fl 

D8 

C607 

4F 

CD 1421 

C9 



446174652020 

54696D652020 

202020202020 

0D0A00 

4A616E2D00 

4665622D00 

4D61722D00 

4170722D00 

4D61792D00 

4A755E2D00 

4A756C2D00 

4175672D00 

5365702D00 

4F63742D00 

4E6F762D00 

4465632D00 

58585S2D00 



mr 
daa 
djnz 
rst 



t a byte on the console 

5 in: A = byts to be printei 

5 out : none 



Prin 

Re? 
Reg 

Destroyed: A 
prtbyt 



1 • 
prtnbl 



push 

rrc 

rro 

rrc 

vro 

ani 

jrz 

call 

pop 

ani 

adi 

cpi 

mov 

push 

pop 
re 
adi 
mov 

call 
ret 



; Messag 

datmsg : 

timtnsg: 

spaceo : 

crlf : 

janmsg: 

f ebmsg: 

narmsg: 

aprmsg: 

maymsg: 

junnsg: 

julmsg: 

augmsg: 

sepTisg: 

c t m s g : 

novmsg : 

decmsg : 

XXXmsg: 



es 

. a s c i z 

. asciz 

.asciz 

.asciz 

.asciz 

.asciz 

•asciz 

.asciz 

.asciz 

.asciz 

.asciz 

.asciz 

.asciz 

.asciz 

.asciz 

.asciz 

.asciz 



PSW 



0Fh 

..1 

prtnbl 

PSW 

0Fh 

'0' 

'9' + l 

C,A 

PSW 

CONOUT 

PSW 



f don't print leading zeros 



; get the chr in C 



'A'-('5'+i) 

C,A 

CONOUT 



'Date 
' T i rti e 



[cr][lf] 

' T '' 

Jan- 
'Feb-' 
'Mar-' 
'Apr-' 
'May-' 

Jun- 
'Jul-' 
'Aug-' 

:>ep- 
'Oct-' 
'Nov-' 
'Dec-' 
'XXX-' 



end 
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18D3 
0A8D 
17A5 
3005 
1623 

17E4: 

0010 
0DaE 
li07 
0360 
198F 
1950 
30^5 
171C 
1743 
162C 
032B 
085D 
1535 
0434 
02D1 
0BDB 
0223 
14AD 
1141 
12B0 
1127 
13E5 
088D 
0999 
19AB 
000E 
096B 
199C 
0044 
0AE5 
08A7 
0902 
ISDC 
0B0F 
13AF 
1326 
06DA 
05FA 
0S9F 
122D 
1320 
0003 
0SD2 
1443 
145B 
1983 
16AC 
0C1A 
0C3B 



AA3 


IBEE 


BAD2MS 


0A9A 


BBl 


1912 


BEGIN 


0153 


BUFCNT 


152A 


CHAMAP 


1332 


CLRSRR 


0209 


COMPER 


09B3 


CONOJT 


1421 


CPMMAP 


1473 


CRLFMS 


1392 


DATAER 


031A 


DDBYT 


0040 


DENSER 


092F 


DMA 


001A 


DSKERR 


0315 


DSKNAM 


1433 


EMDTMS 


0333 


ERRDSK 


1533 


ERRRTN 


0753 


EXITMS 


0305 


FE3MS& 


1997 


FINDED 


013D 


FIXMSG 


0DDA 


FXPRTB 


12E2 


FXSTAR 


IISB 


GETCPM 


1355 


HELPMS 


155D 


IDMSS 


0393 


ioms:j 


099F 


KILL 


0013 


LOiiOQT 


0B7C 


MADRMS 


0971 


MAXERR 


0104 


NOVMSS 


19S4 


OPEN 


00 ZF 


OUTCHR 


16EA 


PRTIS 


13BF 


PRTBYT 


1959 


PRTMIN 


1913 


PRTSEC 


1933 


PQTEOF 


172F 


REBUFF 


5002 


RDPARA 


14B3 


RDTRK 


0B5A 


RSSDMA 


17BB 


RETDSK 


1391 


SAVNBL 


0144 


SECTMS 


03D3 


SEPMSG 


19BA 


SETSEC 


14 53 


STACK 


7000 


STODEN 


024B 


SQMANM 


0C22) 


SYNCER 


07EE 



21 




IJSC3/4 




APRMS5 


19A1 


BADTM3 


0A73 


BB2 


192B 


BIOSBU 


153B 


BUFLEN 


1435 


CHR 


014D 


COMLIN 


0030 


COMPMS 


09BC 


CONST 


13FF 


CR 


000D 


CUR1M3 


0BF2 


DATAMS 


0320 


DECMSJ 


19C9 


DENSM3 


0935 


DRIMSi 


03F1 


dskfl:j 


162B 


DSKQST 


05GB 


EOF 


001A 


ERREXI 


02DD 


ERRTAB 


07A9 


FOB 


1720 


FILLPA 


0DA7 


FINDTD 


025A 


FIXTES 


1142 


FXRDMS 


110F 


FXTRAC 


1142 


GETDSK 


1333 


HOME 


143B 


INCERR 


0AAD 


JANMSG 


1992 


LF 


000A 


L00PM3 


05E0 


yiAKHBY 


12FS 


MAYMSa 


19AS 


OCTMSG 


19BF 


ORGDRI 


153A 


PRMNTH 


ISBD 


PRTIUN 


0B3F 


PRTGUR 


0C4C 


PRTMSG 


1355 


PRTSUM 


0C35 


RAiMSEE 


1433 


RDERMS 


079A 


RDRNMS 


0622 


RDWRTR 


0B0B 


RESET 


000D 


RETMSG 


1391 


SDBYT 


0000 


SEEKER 


07D0 


SERROR 


149A 


SETTRS 


144B 


START 


0105 


STOMAP 


1325 


SUMATR 


0C22 


SYNCM3 


07F4 
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AUGYiSG 


19B5 


BADTRA 


0A41 


BB3 


1943 


BIOSRT 


004E 


BUFREA 


000A 


CHROUT 


1433 


COMMSG 


1011 


CONBQF 


12DC 


CONTMS 


0FF3 


CREATE 


0015 


CUR2MS 


0G36 


DATMSG 


197A 


DEN MS G 


0392 


DFC3 


005C 


DSKASK 


0153 


DSKFUN 


14AF 


DTYPEE 


0A3F 


ERBUFF 


7020 


ERRFLG 


1537 


ERRTRY 


14AB 


FCBADD 


171E 


FILLTA 


02F5 


FIXFIL 


0DC9 


FXABOR 


12AD 


FXREAD 


1293 


FXWRIT 


1279 


HDFILE 


045C 


HOQRS 


0043 


INITMS 


059B 


JULMSG 


19B0 


LINTAB 


2000 


LOOPS 


1437 


MAP BYT 


171D 


MINUTE 


0042 


OFFMSG 


0FC0 


ORUNER 


03A1 


PROTER 


03F9 


PRTA 


13A2 


PRTDAY 


1BC0 


PRTNBL 


1965 


PRTTIM 


1350 


RATIOC 


0CE2 


RDERR 


0737 


RDTAB 


2093 


READ 


1433 


RESMAP 


1341 


RETRY 


000A 


SECOND 


0041 


SEEKMS 


07DS 


SETBYT 


147B 


SETUP 


012C 


STNDBY 


0372 


STYPEE 


0A36 


SUMB 


0C2C 


TERMLO 


0BBB 
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pa:je i9 



TERROR 


14B9 


TEST 


0iDD 


TIMMS5 


19B1 


TYiPDSK 


1539 


TMPELS 


1131 


TRACER 


0B32 


TRACK 


143i 


TRAGMS 


0835 


TRQNCh 


154rE 


TSTLOO 


04E4 


T3TKSS 


03BB 


TSTSTR 


053D 


TSTUNI 


liBo 


TTYPEE 


09CC 


VERMSl 


0CCE 


VERSIO 


0002 


WAITGR 


1371 


V/AITMS 


1395 


WBCHRl 


0S3E 


WBCHR2 


063F 


WBOOT 


0001 


WNR 


0015 


WRIUNI 


063S 


WRBUFF 


3000 


W RE RMS 


078A 


V/RERR 


2709 


WRITE 


14:6B 


WRLNMS 


05ES 


wrpara 


liBI 


WRRNMS 


030E 


WRSTBY 


0103 


WRTAB 


204C 


WRTBU? 


160? 


V/RTEST 


0SiB 


liRTRK 


0D20 


iifRWRST 


0635 


mm2 


19CE 


YEAR 


00i3 


.BLNK. 


0000:03 X 


.DATA. 


0000 = 


.PROS. 


0000' y. 















